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Four  new  Project  solo  modules  are  presented.  A module 
on  computer  graphing  with  an  x-y  plotter  explains  the  format  for 
input  to  the  computer,  demonstrates  the  effect  of  scaling,  and  gives 
several  on-line  exercises  to  produce  graphs.  Several  student- writ ten 
programs  in  elementary  and  advanced  mathematics,  French,  and  U.S. 
history  show  how  peer  teaching  can  be  accomplished  with  a computer. 
Four  computer  games  are  presented:  hide-and-seek,  NIM,  MODULO,  and 
space  war.  Four  simulations — lunar  landing  module,  crazy  eights, 
rectangular  billiards,  and  eliptical  billiards — are  also  offered. 
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Computing  Builds  Strong  Minds  Ten  Ways 

Or  is  it  twelve?  Some  recent  research  by  Emilie  Zielinski  (author  of  the 
Project  Solo  modules  on  matrices)  revealed  that  the  distinctions  made  in  educa- 
tional computing  (and  its  benefits)  have  grown  sharper  with  the  years.  This  is 
especially  true  in  places  where  the  full  power  of  computing  has  been  made  avail- 
able to  students.  Some  impressions  on  where  this  is  taking  us,  and  where  the 
real  action  will  be  in  a few  years,  are  giver  in  the  paper  ’’Guidelines  for  Computer 
Related  Educational  Innovation"  (available  upon  request).  Some  examples  of 
how  these  distinctions  reveal  themselves  in  the  real  school  world  today  are  given 
in  the  enclosed  modules.  A new  16  mm.  film  ("My  Computer  Understands  Me") 
which  explores  tuis  subject  will  be  ready  this  fall. 


C<  ■wPuting  and  Peer  Teaching  , , 

” The  material  in  this  booklet  comes  from  the  students  of  Rosemarie  Kavanagh, 
Mathematics  teacher  at  Fox  Chapel  High  School.  The  significance  of  this  work  is 
very  deep.  It  has  both  educational  and  economic  implications  that  deserve  further 
•itudy.  All  14  programs  in  this  booklet  are  student  authored. 

Computer  Games  and  Computer  Simulations  # 

Distinctions  can  be  made  between  games  and  simulations,  although  the  pro- 
grams students  ^rite  in  tnese  areas  often  combine  both  concepts.  The  real  fun 
begins  wi.fv.  students  modiiy,  or  better  yet  create  the  programs  behind  simulations 
and  games . For  this  reason,  we  believe  that  listings  of  such  programs  should 
always  be  f^rr’ silted  to  students.  The  authorship  of  LMLAND  may  surprise  you. 

Son  of  Project  ~»;lo 

Project  SoTo  funding  terminates  at  the  end 
of  June.  We  were  tempted  to  include  a question- 
naire with  this  newsletter  to  find  out  what  our 
readers  would  like  tc  see  from  future  projects  of 
this  sort.  Instead,  we’d  like  to  (a)  seriously  invite 
free-form  feedback  in  the  form  of  a short  (or  long) 
note  from  you  or  your  students,  and  (b)  promise  to 
keep  you  informed  on  some  quite  new  directions  we 
will  be  exploring.  To  say  we  are  excited  about 
these  would  be  the  understatement  of  the  year. 


* Supported  in  part  by  NSF  Grant  GJ-1077. 
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Cotnfuti) 

In  this  module#  you  will  learn  to  use  the  plotter  in  several 
stages. 

# You  will  study  the  format  of  input  tc  the  plotter  and  then 
do  some  off-line  exercises  which  illustrate  the  various  forms 
that  input  can  take. 

0You  will  learn  about  scaling#  which  has  to  do  with  getting 
the  graph  to  have  the  right  shape  and  size.  A scaling  example 
will  be  given  which  will  also  introduce  the  use  of  a BASIC  pro- 
gram to  do  the  typing. 

0The  most  interesting  activity  in  the  module  involves  several 
on-line  exercises  which  produce  graphs  like  the  ones  on  the  cover. 
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COMPUTER  GRAPHING  WITH  AN  X-Y  PLOTTER 


Drawing  the  graph  of  a function  can  often  give  much  more  in- 
sight into  its  properties  than  looking  at  a formula  which  defines 
it  or  at  a table  of  its  values.  It  is  hard  to  overstate  the  use- 
fulness of  graphs  in  estimating  zeros  of  functions,  maximum  and 
minimum  points,  points  of  inflection,  etc.  Graphs  make  it  pos- 
sible for  you  to  use  your  geometric  intuition  in  considering  how 
one  variable  is  related  to  another.  For  a discussion  of  graphs 
and  coordinate  systems,  See  Dolciani  et  al.  Modern  Introductory 
Analysis  Chapter  5 (Houghton  Mifflin  Co.,  Boston,  Massachusetts, 
021C7) . 

Because  graphs  are  one  of  the  most  valuable  forms  that  com- 
puter output  can  take,  it  would  be  most  helpful  to  have  a device 
capable  of  converting  the  standard  form  of  output  (printed  numbers) 
to  lines  or  points  on  a sheet  of  graph  paper.  The  Hewlett-Packard 
Graphic  Plotter  is  such  a device.  It  transforms  lists  of  number 
pairs  which  are  typed  on  a terminal  (either  by  hand  or  by  a computer 
program)  into  graphs. 

In  this  module,  you  will  learn  to  use  the  plotter  in  several 
stages • 

You  will  study  the  format  of  input  to  the  plotter  and  chen 
do  some  off-line  exercises  which  illustrate  the  various  forms 
that  input  can  take. 

You  will  learn  about  scaling,  which  has  to  do  with  getting 
the  graph  to  have  the  right  shape  and  size.  A scaling  example 
will  be  given  which  will  also  introduce  the  use  of  a BASIC  pro- 
gram to  do  the  typing . 

The  most  interesting  activity  in  the  module  involves  several 
on-line  exercises  which  produce  graphs  like  the  ones  on  the  cover. 

At  this  poinu  there  are  several  directions  that  you  can  take: 
Module  #0132  deals  with  the  problem  of  graphing  the  paths  of  Pirates 
on  the  high  seas.  Module  #0134  explores  the  use  of  computer  graph- 
ing in  solving  interpolation/extrapolation  problems.  Module  #0133 
deals  with  the  interesting  topic  of  drawing  three-dimensional  graphs. 
Once  you  have  gotten  started  by  doing  some  of  the  problems  sugges- 
ted in  this  module,  it  should  be  easy  to  come  up  with  interesting 
ideas  of  your  own. 
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PLOTTER  INPUT  FORMAT 


The  plotting  area  of  the  Hewlett-Packard  Plotter  should  be 
thought  of  as  an  xy  plane  where  0_<x£9999  and  0£y£9999.  The  point 
(0,0)  is  the  lower  left  corner  of  the  plotting  area  and  the  point 
(9999,9999)  is  the  upper  right  corner.  The  pen  can  move  to  any 
point  in  that  area  whose  coordinates  can  be  specified  by  a pair 
of  integers  in  those  ranges. 

MOTE:  TheKe  ane  10,000  K JO,  000  ■ 1 00,000,000  Auch  point 4. 

Zj$  the  plotter  anea  lb  10"  x 15"  ( 150  6quan.e  inches) 
that  mean*  that  theKe  ahe  about  667,000  plottable 
point 4 pex,  Aquasie  inch,  Vo  you  think  you  could.  *ee 
the  difi(esience  between  an  unplottable  point  [*ay 
[462& .9079342 , 9175.210365))  and  the  neane&t  plottable 
point  ( [46 29 , 91  75  ) )? 


Basically  what  happens  is  that  whenever  a statement  of  the 
form  \ PRINT  x.y!  is  executed  on  a terminal  (which  is  connected  to 
the  plotter) , the  pen  moves  to  the  point  (X,Y)  in  the  plotting 
area.  There  are  two  basic  modes  of  plotting  as  illustrated  in 
Figure  1.  In  the  first  case  (Figure  la),  the  terminal  output 
contains  a line  consisting  of  the  letters  PLTL  (plot  lines)  fol- 
lowed by  a list  of  number  pairs.  The  plotted  output  consists  of 
lines  drawn  between  the  points  represented  by  the  number  pairs. 
The  code  PLTT  shown  on  the  last  line  means  plot  terminate. 


PLTL 

1000 

7000 

2000 

3000 

3000 

7000 

4000 

3000 

5000 

7000 

PLTT 

TERMINAL  OUTPUT 


PLOTTER  OUTPUT 


Figure  la. 
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The  other  mode  (Figure  lb)  plots  points  (PLTP)  without  drawing 
the  lines  between  them*  That  is,  it  puts  a dot  on  the  grarV.  paper 
at  the  location  corresponding  to  each  of  the  number  pairs. 


PLTP 

1000 

7000 

2000 

3000 

3000 

7000 

4000 

3000 

5000 

7000 

PLTT 

TERMINAL  OUTPUT 


i 
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\ 
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PLOTTER  OUTPUT 


Figure  lb. 


The  following  list  explains  the  form  of  the  data  that  is  fed 
to  the  plotter.  In  off-line  mode  the  data  is  fed  to  the  plotter 
directly  by  typing  on  the  teletype.  In  on-line  mode  it  is  fed  to 
the  plotter  by  PRINT  statements.  After  either  PLTL  or  PLTP  is 
typed  on  the  terminal , numerical  data  should  be  typed  in  the 
following  format: 

A.  The  coordinates  of  each  point  should  be  placed  on  a 
different  line. 

B.  Each  value  of  x (first  coordinate)  or  y (second 
coordinate)  should  be  a non-negative  integer  less 
than  or  equal  to  9999  and  may  not  have  a decimal 
point. 

C.  Any  number  of  spaces  may  be  typed  before  the  x 
coordinate. 

D.  The  first  space  after  the  x coordinate  acts  as  the 
separator  between  the  x and  y coordinates . 

E.  Any  number  of  spaces  may  be  typed  between  the  x 
coordinate  and  the  y coordinate. 
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F,  The  y coordinate  may  be  followed  by  either: 

1.  A space.  In  this  case  the  rest  of  the  line  up 
to  the  carriage  return  is  ignored.  The  carriage 
return  causes  the  pen  to  move  to  the  point  whose 
coordinates  were  typed. 

2.  An  up-arrow  ( + ) . If  an  up-arrow  immediately  fol- 
lows the  y-coordinate,  the  pen  moves  to  the  point 
while  lifted  from  the  paper. 

NOTE:  In  PLTP  mode,  the  pen  aPwayi  move*  while,  lifted  lo  in  thil 
caie  the  ap-aaaow  can  leave  no  puapoie.  The  puapoie  it 
can  leave  in  PLTL  mode  will  be  illuitaated  in  the  exeaciie 

below. 


Off-Line  Exercise 


For  this  exercise  you  need  a plotter  connected  to  a terminal 
but  no  computer.  That  is,  you  will  be  using  the  terminal  in  local 
. (off-line)  mode. 


Prepare  the  plotter  for  plotting  (See  Appendix  A)  and  type 
the  following  on  the  terminal: 


PLTL 

1333 

2666 

2666 

1333 

1333 

2666 

3333 

4666 

4666 

3333 


3000 
3000 
5000 
5000 
7000 
7000 
7000  + 
7000 
7000 
3000 


3333 

7000 

5333 

7000  + 

5333 

3000 

6666 

3000 

7333 

7000  + 

7333 

3000 

8666 

3000 

8666 

7000 

7333 

7000 

PLTT 

Scaling 

Suppose  you  wanted  to  graph  the  function  y = x3  for  -1  < x < 1 
on  the  Hewlett-Packard  Plotter.  The  corresponding  values  of  y also 
have  the  range  -1  < y < 1 . Recall  that  no  points  in  rhe  plotting 
area (0£x<9999  and  0£y£9999)  have  negative  coordinates.  Furthermore 
the  graph  of  a function  over  such  a small  interval  (length  2)  would 
appear  to  be  just  a dot  anyway.  This  suggests  a couple  of  questions: 

a.  How  do  you  draw  graphs  which  contain  points  with 
negative  coordinates? 

b.  How  do  you  graph  a function  so  that  the  graph  is 
a reasonable  size? 
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The  answer  lies  in  the  fact  that  multiplying  every  value  of 
x by  a constant  and  adding  another  constant  and  doing  the  same 
for  y doesn't  change  the  basic  shape  of  the  graph. 

The  following  points  are  all  on  the  graph  of  the  function 
y = x3 : 


(-1, 

-1) 

(.1,  .001) 

(-.9, 

-.729) 

(.2,  .008) 

(-.8, 

-.512) 

(.3,  .027) 

(-.7, 

-.343) 

(.4,  .064) 

(-.6, 

-.216) 

(.5,  .125) 

(-.5, 

-.125) 

(.6,  .216) 

(-.4, 

-.064) 

(.7,  .343) 

(-.3, 

-.027) 

(.8,  .512) 

(-.2, 

-.008) 

(.9,  .729) 

(-.1, 

-.001) 

(1,  1) 

(0,  0) 


If  we  multiply  every  value  of  x by  4000  and  add  5000 , and  then 
ignore  all  digits  after  the  decimal  point,  and  do  the  same  for  every 
value  of  y we  get  the  following  set  of  points: 


(1000,  1000) 
(1400,  2083) 
(1800,  2951) 
(2200,  3627) 
(2600,  4135) 
(3000,  4500) 
(3400,  4743) 
(3800,  4891) 
(4200,  4967) 
(4600,  4995) 
(5000,  5000) 


(5400,  5003) 
(5800,  5031) 
(6200,  5107) 
(6600,  5255) 
(7000,  5500) 
(7400,  5863) 
(7800,  6371) 
(8200,  7047) 
(8600,  7915) 
(9000,  9000) 


SET  B 


If  you  look  at  Figure  2 you  can  see  that  depending  on  which 
axis  labels  you  look  at  you  can  interpret  the  graph  as  belonging 
to  either  of  the  two  sets  of  points.  A or  B. 

1 X 9000 
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Figure  2. 
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The  important  point  to  notice  is  that  the  coordinates  of  the 
second  set  of  points  are  in  the  right  range  for  producing  a graph 
on  the  Hewlett-Packard  Plotter. 

The  following  is  a program  in  BASIC  which  draws  the  graph  of 
the  function  y = x3  for  -1  < x <.  1 using  the  above  scaling  method. 
Run  the  program  with  the  plotter  attached  to  your  terminal  then 
compare  the  listing  of  the  program,  the  output  on  tne  terminal, 

and  the  graph. 


10 
20 
25 
30 
40 
50 
60 
70 
80 
90 
100 
110 
1 15 
120 
130 
140 
150 
160 
1 70 
180 
185 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


PRINT  "PLTL 


«« 


1 STEP  • 1 


This  draws 
of  y s x3. 


FOR  Z»- 1 TO 
LET  X»Z 
LET  Y » X * 3 
LET  X=X*4000+5000 
LET  Y * Y*4000  + 5000 
PRINT  INTCX) # INT< Y > 

NEXT  Z 

PRINT  MPLTT"  — 

PRINT  "PLTL" 

» 5000 

s 1000  TO  9000  STEP  400 
X#Y 

X#  Y - 
X#  Y 


50 


LET  Y 
FOR  X 
PRINT 
PRINT 
PRINT 
NEXT  X 

PRINT  "PLTT" 

PRINT  "PLTL" 

LET  X - 5000 
FOR  Y * 1000 
PRINT  X#  Y 
PRINT  X « 50  # Y 
PRINT  X#Y 
NEXT  Y 

PRINT  "PLTT"  ~ 

PRINT  "PLTL" 

PRINT  950#  4850 
PRINT  975#  4850 
PRINT  1000#4800:"»" 
PRINT  1 000  # 4900 
PRINT  9000# 4800 : "» " 
PRINT  9000 #4900 
PRINT  4775# 1000:"t" 
PRINT  4800# 1000 
PRINT  4850 # 950  J " 
PRINT  4850 #1050 
PRINT  4850#8950:"t" 
PRINT  4850#9050 
PRINT  **PLTT"  — 

END 


TO  9000  STEP  400 


the  graph 


This  puts  calibra- 
tion marks  on  the 
X axis  and  draws 
the  X axis. 


Thir  puts  calibra- 
tion marks  on  the 
Y axis  and  draws 
the  Y axis. 


What  does  this  do? 
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Some  Generalizations: 


To  see  how  to  determine  the  scaling  constants,  consider  the 
situation  represented  below: 

PLOTTER  PAPER 


9000- 


1000  - 


1 

1 

1 ''  \ 

1 

1 * ' 

1 

1 \ ^ 

1 

J 

0 1000 


9oFo  9999 


You  want  to  graph  a function  where  x and  y have  ranges  &<x< 

b and  c < w < d so  that  the  graph  fits  in  that  portion  of  the  plot”* 

ted  area  wh<-re  1000<x<9000  and  1000^x9000.  To  do  this  you  want 

to  find  constants  K__,  K , J , and  J such  that: 

y x y 


x'  yr  x' 
exactly  when 
exactly  when 


1000  < K *x  + J < 9000 

A A 


a <x  <. b 
c <y  <d 

It  turns  out  that  the  following  formulas  accomplish  this: 


1000  <. K *y  + J < 9000 
«*  •* 


K - (9000  - 1000) / (b  - a) 

X 

Ky  = (9000  - 1000)/(<:  - c) 

Jx  = 5000  - K (a  + b)/2 
Jy  = 5000  - Ky(c  + d)/2 

You  should  apply  them  to  the  problem  for  which  the  above  program 

was  written  to  verify  that  K = K * 4000  and  J ss  J = 5000. 

x y x y 

Naturally  there  is  nothing  special  about  the  numbers  1000 
and  9000;  if  you  wanted  a slightly  larger  graph  you  could  use 
500  and  9500. 
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ON-LINE  EXERCISES 


1.  Write  a BASIC  program  to  graph  the  function  y=x3-x2+x-l  on  the 
interval  “3£x£3. 

HINT:  -34<y<20. 

2.  Write  a program  which  uses  the  random  number  function  to  dr-"w 
random  size  squares  at  random  points  on  the  graph  paper. 

3.  Long  Term  Project:  Write  a program  which  reads  in  a string  of 
characters  and  then  prints  the  string  on  the  plotter • 

4.  For  those  who  are  familiar  with  circular  functions: 

Find  all  values  of  x in  the  interval  . l£x<l  which 
satisfy  the  equation  sin (l/x)=-sin (1/x) . 

HINT:  Write  a program  which  will  graph  both  functions 
on  the  same  sheet  and  estimate  the  values  of  x 
where  the  graphs  intersect.  See  the  cover  of 
this  module. 


5.  For  the  artistically  inclined — Use  different  colored  pens, 
the  random  generator,  and  your  knowledge  of  analytic  geom- 
etry to  produce  some  examples  of  computer -genera ted  art. 

(See  Project  Solo  Newsletters  No.  12,  13,  15,  and  20 

for  some  ideas  that  you  could  combine.) 

6.  Can  you  write  a program  that  accepts  the  vertices  of  polygons 
as  input,  and  then  produces  an  iso-metric  (3-D)  drawing  of  the 
polygon  as  output? 
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APPENDIX  A 


Assuming  that  you  have  a Hewlett-Packard  Plotter  connected  to 
a teletype  the  following  steps  will  prepare  the  plotter  for  plotting 

1.  Turn  teletype  on  (local  for  offline  work?  line  for  on- 
line work) . 

2.  Push  power  button  on  the  plotter  ON. 

3.  Place  paper  on  plotting  area. 

4 . Push  chart  hold  button  and  wait  until  paper  sticks  to 
plotting  area. 

5.  Push  lower  left  button  and  adjust  lower  left  knobs  to 
determine  the  (0,0)  point.  Be  careful  not  to  turn 
knobs  past  the  point  where  the  pen  stops  moving. 

6.  Push  upper  right  button  and  adjust  upper  right  knobs 
to  determine  the  (9999,9999)  point. 


NOTE:  Unle*6  you  make  the  plotting  anea  tquane  by  putting  the . 
uppe.n.  flight  point  exactly  a*  Aan  to  the  flight  a 6 it  i& 
above  the  lowen  lefit  point,  youn  gfiaph  may  be  slightly 
elongated  in  the  direction  o\  one  on.  the  othen  axi* . 
ThJU  i 6 no  pnoblem  unle*6  you  want  youn.  cinder  to  be 
penfiectly  fiound  nathen  than  somewhat  elliptical . 


I & you  wi*h  to  ute  the  &ull  10  x IS  papen  and 
" cincula n."  cinder,  *et  the  pen  hem 
but  change  all  youn  PRINT  6tatement6\ 

X i*  multiplied  by  0,666667 . 
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PEER  TEACHING 

with 

COMPUTERS 

The  following  programs  were  all  written  by  students  at  Fox 
Chapel  Area  High  School.  These  students  wrote  tb/iir  programs  with 
their  fellow  students1  needs  in  mind.  Each  program  is  a tutorial 
aimed  at  helping  younger  learners  master  a new  skill.  This  booklet 
is  divided  into  three  areas. 

The  first  area  covers  elementary  arithmetic  skills  which  include 
fractions,  measurement  conversion,  volumetric  conversion,  subtrac- 
tion, multiplication,  and  addition.  The  second  area,  advanced  math- 
ematics, contains  tutorials  on  scientific  notation,  aige^ra  and 
logarithms.  The  third  area  covers  non-mathematical  subjects.  This 
includes  a U.S.  history  questionnaire,  French  grammar  & vocabulary, 
and  French  history  & literature. 

Each  program  has  a short  introdugtion  written  by  the  student 
programmers  followed  by  a sample  run.  Those  '.uteres ted  in  listings 
can  obtain  them  by  contacting  Project  Solo 


Table  of  Contents 

Elementary  Arithmetic  — - Pages  2-7 
Advanced  Mathematics  — — Pages  8-18 
French  and  U.S.  History  - Pages  19-24 


PROJECT  SOLO  / Compute Ji  Science  Ve.pt . / Untv,  of  PtttA  bu/igk  ( 7 52  1 3) 
Module.*  #0205-02  7$  / Student  author*  fa om  Fox  Chapel  High  School. 


ARITHMETIC 


Tables  (#0205) 

This  is  a program  that  was  used  with  a special  education 
class  to  ease  the  boredom  of  both  teacher  and  student  being 
drilled  on  multiplication  facts.  The  students  responded  en- 
thusiastically to  it. 

Woody  Lauer,  12th  Grade 


>RUN 

WHAT  IS  YOUR  NAME 
7 WOODY  LAUER 

WOODY  LAUER#  WHAT  IS  THE  HUMBER  OF  THE  TABLE  YOU 
WISH  TO  CHECK 
?6 

WHAT  DOES  5X6»? 

726 

YOU'RE  WRONG#  WOODY  LAUERI 
TRY  AGAIN* 

WHAT  DOES  5 X 6*7 
730 

THAT'S  RIGHT 
WHAT  DOES  0 X 6*7 
712 

YOU'RE  WRONG#  WOODY  LAUERI 
TRY  AGAIN* 

WHAT  DOES  0 X 6*7 
734 

YOU'RE  WRONG#  WOODY  LAUERI 
THE  CORRECT  ANSWER  IS  0* 

WHAT  DOES  1 X 6*7 
70 

YOU'RE  WRONG#  WOODY  LAUERI 
TRY  AGAIN* 

WHAT  DOES  i X 6*7 
76 

GOOD 

WHAT  DOES  6 X 6*7 

7 36 

GOOD 

WHAT  POES  3 X 6*7 

718 

GOOD 

WHAT  DOES  4 X 6*7 

724 

RIGHT 

WHAT  DOES  2 X 6*7 
712 

THAT'S  RIGHT 
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Pairs  (#0206) 


This  program  can  best  be  utilised  by  a third  or  fourth  grad- 
er. It  tests  their  ability  to  add  and  multiply . ^Theoomputer 
randomly  selects  a number  between  1 and  90.  The  child  must  find 
either  four  different  pairs  of  addends  whose  sum  equals  the  num- 
ber or  a pair  of  integers  whose  product  yields  the  number.  The 
student  has  the  option  of  finding  additional  pairs  of  multipliers 


Ann  Connerf  12th  Grade 


>RUN 

WHAT  IS  YOUR  FULL  NAME? 

? ANN  CONNER 

I AM  THINKING  OF  TWO  NUMBERS  WHICH  WHEN  ADDED 
EQUALS  17.  PLEASE  TYPE  TWO  NUMBERS 

THAT  YOU  CAN  THINK  OF  THAT  EQUAL  17 
?1 

?16_  . . 

THAT  IS  CORRECT. 

*0RE  MUMBERS? 

? 2 
? 1 A 

THAT  IS  NOT  CORRECT  THE  ANSWER  YOU  GET 
WHEN  ADDING  2 TO  14  IS  16 

CAN  YOU  THINK  OF  TWO  MORE  NUMBERS? 

PLEASE  TYPE  THEM. 

? 2 

? 1 5 

THAT  IS  CORRECT. 

CAN  YOU  THINK  OF  TWO  MORE  NUMBERS? 

PLEASE  TYPE  THEM.  • * 

? 3 ' 

? 16 

THAT  IS  NOT  CORRECT  THE  ANSWER  YOU  GET 
WHEN  ADDING  3 TO  16  IS  19 
NOW  I AM  THINKING  OF  TWO  NUMBERS  WHICH 
WHEN  MULTIPLIED  TOGETHER  EQUAL  61 
| ? 61 

? 1 

THAT  WAS  VERY  GOOD  YOU  ARE  CORRECT. 

CAN  YOU  THINK  OF  TWO  MORE  NUMBERS  WHICH  WHEN 
MULTIPLIED  TOGETHER  EQUAL  61  PLEASE  TYPE  THEM. 
? YES 
? 2 

' ? 61 

THAT  WAS  NOT  RIGHT*  WHEN.  YOU  MULTIPLY  2 BY 
61  YOU  GET  122 

CAN  YOU  THINK  OF  TWO  MORE  NUMBERS  WHICH  WHEN 

MULTIPLIED  TOGETHER  EQUAL  61  PLEASE  TYPE  THEM. 
? NO 
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Subtraction  (#0207) 

This  program  is  designed  to  enable  students  to  practice 
subtraction.  However,  it  is  more  of  a challenge  to  students 
than  just  knowing  how  to  subtract.  The  student  is  given  the 
difference  between  two  numbers  and  is  asked  to  find  both  num- 
bers, He  is  only  given  five  ohahces  to  reason  both  numbers 
correctly,  so  proficiency  in  substraction  is  necessary  to  get 
both  numbers  correct, 

Terry  Wise,  12th  Grade 


i • , - 

>RUN 

TYPE  YOUR  PULL  NAME 
i?TERRY  WISE 

I AM  THINKING  07  TWO  NUMBERS  BETWEEN  40  AND  70 

THE  DIFFERENCE  BETWEEN  THEM  IS  20 

TYPE  A NUMBER  THAT  YOU  THINK  IS  THE  LARGER  NUMBER 

763 

'.NOW  TYPE  THE  SMALLER  NUMBER 
!?45 

65-  45*  20  BUT  THOSE  ARE  NOT  THE  CORRECT 
NUMBERS 

TYPE  A NUMBER  THAT  YOU  THINK  IS  THE  LARGER  NUMBER 
?66 

NDW  TYPE  THE  SMALLER  NUMBER 
746 

66-  46*  20  BUT  THOSE  ARE  NOT  THE  CORRECT 
NUMBERS 

type  A NUMBER  THAT  YOU  -THINK  IS  THE  ■faABQER-NUMBgR — - 

767 

,N3W  TYPE  THE  SMALLER  NUMBER 
'?47 

67-  47*  20  BUT  THOSE  ARE  NOT  THE  CORRECT 
numbers 

TYPE  A NUMBER  THAT  YOU  THINK  IS  THE  LARGER  NUMBER 

764 

; N3W  TYPE  THE  SMALLER  NUMBER 
744 

64-  44*  20  BUT  THOSE  ARE  NOT  THE  CORRECT 
NUMBERS 

.TYPE  A NUMBER  THAT  YOU  THINK  IS  THE  LARGER  NUMBER 

NOW  TYPE  THE  SMALLER  NUMBER 
7 43 

3RHAT#  YOU  GOT  BOTH  NUMBERS  RIGHT 

IF  YOU  WOULD  LIKE  TO  TRY  ANOTHER  PROBLEM#  TYPE  THE  WORD 
YES 
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Addition  of  Fractions  (#0208) 

This  program  was  used  in  a general  mathematics  and  a re- 
fresher arithmetic  course  to  introduce  the  addition  of  fractions 
before  teaching  a technique  for  finding  the  least  common  denom- 
inator . 

Mark  Pilant#  10th  Grade 
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>RUN 

HELLO#  MY  NAME  IS  CHARLIE* 

TYPE  YOUR  NAME 
7 KELLY 

TYPE  THE  NUMERATOR  OF  THE  FIRST  FRACTION 
?1 

TYPE  THE  DENOMINATOR  OF  THE  FIRST  FRACTION 
72 

TYPE  THE  NUMERATOR  OF  THE  SECOND  FRACTION 
?3 

TYPE  THE  DENOMINATOR  OF  THE  SECOND  FRACTION 
74 

TYPE  THE  DENOMINATOR  OF  YOUR  ANSWER 
76 

INCORRECT*  FIRST  FIND  A COMMON  DENOMINATOR  BY 
MULTIPLYING  BOTH  DENOMINATORS  TOGETHER* 

TYPE  YOUR  ANSWER  TO  THIS  MUCH  OF  THE  PROBLEM* 

76 

INCORRECT*  FIRST  FIND  A COMMON  DENOMINATOR  BY 
MULTIPLYING  BOTH  DENOMINATORS  TOGETHER* 

TYPE  YOUR  ANSWER  TO  THIS  MUCH  OF  THE  PROBLEM* 
78 


MULTIPLY  THE  NUMERATOR  AND  DENOMINATOR  OF  THE  FIRST  FRACTION 
BY  THE  DENOMINATOR  OF  THE  SECOND  FRACTION 
TYPE  THE  NUMERATOR  OF  YOUR  NEW  FRACTION 
72 

INCORRECT 

MULTIPLY  THE  NUMERATOR  AND  DENOMINATOR  OF  THE  FIRST  FRACTION 
BY  THE  DENOMINATOR  OF  THE  SECOND  FRACTION 
TYPE  THE  NUMERATOR  OF  YOUR  NEW  FRACTION 
74 

TYPE  THE  DENOMINATOR  OF  YOUR  NEW  FRACTION* 


78 

MULTIPLY  THE  NUMERATOR  AND  THE  DENOMINATOR  OF  SECOND 
FRACTION  BY  THE  DENOMINATOR  OF  THE  FIRST  FRACTION 
TYPE  THE  NUMERATOR  OF  YOUR  NEW  FRACTION 
75 

INCORRECT 

MULTIPLY  THE  NUMERATOR  AND  THE  DENOMINATOR  OF  SECOND 
FRACTION  BY  THE  DENOMINATOR  OF  THE  FIRST  FRACTION 
TYPE  THE  NUMERATOR  OF  YOUR  NEW  FRACTION 


76 

TYPE  THE  DENOMINATOR  OF  YOUR  NEW  FRACTION 
78 

NOW  ADD  THE  TWO  NUMERATORS  TOGETHER 
TYPE  YOUR  ANSWER 

75  as* 
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NOW  ADD  TKfi  TWO  NUMERATORS  TOGETHER 
TYPE  YOUR  ANSWER 
? 10 

NOW  YOU  HAVE  FIGURED  THE  NUMERATOR  OF  YOUR  FINAL  ANSWER 
WHICH  IS  10 

THE  DENOMINATOR  OF  YOUR  FINAL  ANSWER  IS  8 

IF  YOU. WANT  TO  TRY  ANOTHER  PROBLEM  TYPE  THE  WORD  YES 


Measurements  (#0209) 

This  is  a program  used  in  a refresher  arithmetic  class* 

It  forces  the  student  to  reduce  his  answer  to  the  simplest 
form*  There  are  no  tutorial  features  in  it  because  these  stu- 
dents have  too  much  difficulty  reading  and  interpreting  instruc- 
tions • 

Don  Salvin,  12th  Grade 


>RUN 

THIS  IS  A PROGRAM  TO  ADD  SEVERAL  SETS  OF  DENOMINATE 
NUMBERS • 

HOW  MANY  SETS  OF  NUMBERS  DO  YOU  WISH  TO  ADD? 

?2 

TYPE  THE  NUMBER  OF  YARDS  IN  THE  FIRST  SET  OF  MEASUREMENTS. 

?8 

TYPE  THE  NUMBER  OF  FEET  IN  THE  FIRST  SET  OF  MEASUREMENTS. 

?0 

TYPE  THE  NUMBER  OF  INCHES  IN  THE  FIRST  SET  OF  MEASUREMENTS. 
?21 

TYPE  THE  NUMBER  OF  YARDS  IN  THE  SECOND  SET  OF  MEASUREMENTS. 
?6 

TYPE  THE  NUMBER  OF  FEET  IN  THE  SECOND  SET  OF  MEASUREMENTS. 

?0 

TYPE  THE  NUMBER  OF  INCHES  IN  THE  SECOND  SET  OF  MEASUREMENTS. 
?17 

HOW  MANY  INCHES  DID.  YOU  GET  IN  YOUR  FINAL  ANSWER? 

?2 

CORRECT 

HOW  MANY  FEET  DID  YOU  GET  IN  YOUR  FINAL  ANSWER? 

?0 

O.K. 

HOW  MANY  YARDS  DO  YOU  HAVE  IN  YOUR  ANSWER? 

?15 

CONGRATULATION!  1 YOU  DIDN'T  EVEN  MAKE  ONE  MISTAKE! 
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Ghost  (#0210) 


This  program  can  be  useful  for  classes  which  are  learning 
their  conversion  factors  of  measurements  because  it  challenges 
the  student  not  to  spellout  the  word  GHOST • To  get  through  the 
game  without  losing,  he  must  get  better  than  ten  out  of  fifteen 
questions  correct.  A file  is  utilised  as  well  as  pass  and  repass 
statements.  To  compare  the  student's  answer  with  the  correct 
answer  in  the  file,  an  ICO  statement  is  used.  Thus,  by  playing 
a simple  game,  the  student  is  both  having  fun 'learning  and  re- 
viewing his  conversion  factors  of  various  measurements. 

Chris  Mellott,  11th  Grade 


>RUN 

THIS  PROGRAM  IS  DESIGNED  TO  TEST  THE  STUDENT  ON  THE 
CONVERSION  FACTORS  OF  VARIOUS  MEASUREMENTS  SUCH  AS 
LENGTH#  WEIGHT#  AND  VOLUME.  THIS  TEST  WILL  BE  IN 
THE  FORM  OF  A GAME#  WHICH  IS  CALLED  GHOST. 

THE  STUDENT  WILL  GET  15  CHANCES  AND  FOR  EACH  MIS- 
TAKE HE  WILL  GET  ONE  OF  THE  LETTERS  IN  THE  WORD 
GHOST. 

IF  THE  STUDENT  GETS  THROUGH  THE  TEST  WITHOUT  SPELLING 
OUT  THE  WORD  GHOST  HE  WINS!  HOWEVER#  AS  SOON  AS  THE 
STUDENT  SPELLS  OUT  THE  WORD  GHOST  HE  LOSES  AND  THE 
TEST  IS  OVER. 

HELLO#  WHAT  IS  YOUR  NAME* 

? CHRIS  MELLOTT 

NICE  TO  MEET  YOU#  CHRIS  MELLOTT. 

HOW  MAN*  FEET  IN  A MILE? 

? 5280 

HOW  MANY  SQUARE  INCHES  IN  A SQUARE  FOOT? 

? 134 
G 

HOW  MANY  CUBIC  FEET  IN  A CUBIC  YARD? 

? 27 

HOW  MANY  QUARTS  IN  TWO  PECKS? 

? 15 
GH 

HOW  MANY  FLUID  OUNCES  IN  TWO  PINTS? 

? 30 
GHO 

HOW  MANY  INCHES  IN  HALF  A FOOT? 

? 6 

HOW  MANY  OUNCES  IN  A POUND? 

? 12 
GKOS 

HOW  MANY  FEET  IN  A ROD? 

GHOST!  YOU  JUST  LOST#  SO  GOOD-BYE. 
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ADVANCED  MATH 


Exponents  (#0211) 

This  program  is  designed  to  check  a students  knowledge  of 
exponents.  It  employs  no  logs  but  instead  simulates  the  same 
type  of  thinking  that  a student,  not  knowing  logs,  would  employ. 

It  is  designed  to  only  compute  problems  which  do  not  involve  deci- 
mals and  irrational  numbers.  These  problems  can  easily  be  done 
in  one's  head,  since  the  program  is  based  on  whole  number  powers 
of  the  numerator  and  denominator  of  each  base,  expo nent , and  nuj* 
ber.  There  are  two  parts  to  the  program.  The  first  part  asks  tne 
student  to  supply  a number  and  an  exponent,  it  then  computes  tne 
base.  The  second  part  computes  the  number  given  the  base  and  tne 

exponent • 


part  1 


Robert  Hanna,  12th  Grade 


>RUN 

TYPE  YOUR  NAME 
?BOB 

TYPE  THE  NUMBER  OF  PROBLEMS  YOU  WISH  TO  DO 
?2 

TYPE  THE  NUMERATOR  OF  THE  NUMBER 
?64 

TYPE  THE  DENOMINATOR  OF  THE  NUMBER 
?1 

TYPE  THE  NUMERATOR  OF  THE  EXPONENT 
?2 

TYPE  THE  DENOMINATOR  OF  THE  EXPONENT 
?1 

THE  BASE  IS  8/  1 

NOW  START  TO  DO  YOUR  NEXT  PROBLEM 

TYPE  THE  NUMERATOR  OF  THE  NUMBER 

?64 

TYPE  THE  DENOMINATOR  OF  THE  NUMBER 
?1 

TYPE  THE  NUMERATOR  OF  THE  EXPONENT 
?4 

TYPE  THE  DENOMINATOR  OF  THE  EXPONENT 

THE  PROBLEM  CANNOT  BE  SOLVED  IN  THIS  MANNER,  IT  MOST  BE 
SOLVED  BY  THE  USE  OF  THE  LOGARITHMIC  TABLES  IN  THE  BACK  OF 
YOUR  TRIGONOMETRY  BOOK 

FOLLOW  LOGOUT  PROCEDURES  AND  GOODBYE  BOB 

part  2 

>RUN 

TYPE  YOUR  NAME 
?BOB 

TYPE  THE  NUMBER  OF  PROBLEMS  YOU  WISH  TO  DO 
?2 

TYPE  THE  NUMERATOR  OF  THE  BASE 
?0 

TYPE  THE  DENOMINATOR  OF  THE  BASE 
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?2 

TYPE  THE  NUMERATOR  OF  THE  EXPONENT 
?1 

TYPE  THE  DENOMINATOR  OF  THE  EXPONENT 
? 1 

THE  NUMBER  IS  ZERO  BECAUSE  THE  NUMERATOR  OF 
THE  BASE  IS  ZERO 

NOW  START  TO  DO  YOUR  NEXT  PROBLEM 
TYPE  THE  NUMERATOR  OF  THE  BASE 
?-l 

TYPE  THE  DENOMINATOR  OF  THE  BASE 
?1 

TYPE  THE  NUMERATOR  OF  THE  EXPONENT 
?2 

TYPE  THE  DENOMINATOR  OF  THE  EXPONENT 
?1 

THE  NUMBER  IS  ONE  BECAUSE  NEGATIVE  ONE  TO  AN  EVEN  POWER  IS 
POSITIVE  ONE 

FOLLOW  LOGOUT  PROCEDURES  AND  GOODBYE  BOB 
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Sum  of  Integers  (#0212) 


This  program  is  designed  to  help  algebra  students  who  ^ have 
trouble  solving  sum  of  integers  problems.  It  has  the  flexiblity 
to  check  the  sum  of  any  number  of  integers  and  even  tells  the 
student  if  the  problem  is  impossible.  The  program  is  a step  by 
step  tutorial  that  guides  the  student  through  to  completion,  A 
file  of  comments,  that  are  randomly  called,  helps  encourage  the 
student.  The  program  utilizes  string  functions  to  give  the  com- 
puter a stutter, 

David  Rorison,  12th  Grade 


>RUN 

WHAT  IS  YOUR  FULL  NAME? 

? DAVID  BOR I SON  . . 

8QV  MANY  CONSECUTIVE  INTEGERS  ARE  THERE  IN  THIS  PROBLEM? 
?! 

HA# HA*  YOU  CAN’T  FOOL  ME#  THERE’S  GOT  TO  BE 
$0RE  THAN  ONE  INTEGER  INPUT  YOUR  NUMBER  AGAIN* 

?5 

WELL# DAVID#  HOW  ABOUT  INPUTTING  THE  SUM  OF  THE  5 
CONSECUTIVE  INTEGERS  FOR  THIS  PROBLEM* 

?66 

BETTER  INPUT  YOUR  SUM  FOR  YOUR  5 CONSECUTIVE 
INTEGERS  AGAIN*  THERE  ARE  NOT  5 CONSECUTIVE 
INTEGERS  THAT  ADD  UP  TO  66* 

?65 
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OK  IT’S  POSSIBLE  THIS  TIMS.  THERE  ARK  5 10 

CONSECUTIVE  INTEGERS  THAT  ADO  UP  TO  SS. 

WHAT  IS  THE  VALUE  YOU  HAVE  FOR  THE  FIRST  CONSECUTIVE  INTEGER? 
Til 

P-.'OD/  YOU  GOT  IT  RIGHT* 

WHAT  DO .YOU  THINK  IS  THE  VALUE  FOR  THE  SECOND  CONSECUTIVE 
INTEGER? 

712 

GOOD  SHOW  DDDDAVID  RORISON  REEF  IT  UP* 

DAVID > YOU'LL  HAVE  TQ  EXCUSE  MY  TERRIBLE  STUTTERING* 

IT’S  UNFORTUNATE*  BUT  I HAVE. A SPEECH  IMPEDIMENT* 

I OCCASIONALLY  HAVE  TROUBLE  PRONOUNCING  D'S* 

WHAT  IS .THE  VALUE  YOU'VE  GOTTEN  FOR  THE  THIRD 
CONSECUTIVE  INTEGER? 
f 13 

WAY  TO  GO.  YOUR  INTELLECT  IS  ASTOUNDING* 

WKAT  IS  YOUR  VALUE  POR  YOUR  4TH  CONSECUTIVE  INTEGER* 

- 

YOU* RE  A. REAL  GENIUS*  PROCEED  AT  A RAPID  PACE* 

WHAT  IS  YOUR  VALUE  FOR  THE  FINAL  INTEGER* 

T IS  - 1 

YOU  DID  IT*  ROW  ABOUT  DOING  ANOTHER  PROBLEM? 

TYPE  YES  IF  YOU  WANT  TO  TRY  AGAIN  AND  NO  IF  YOU  DON'T* 

? YES 

HOW  MANY  CONSECUTIVE  INTEGERS  ARE  THERE  IN  THIS  PROBLEM? 

?5 

WELL* DAVID#  HOW  ABOUT  INPUTTING  THE  SUM  OF  THE  5 
CONSECUTIVE  INTEGERS  FOR  THIS  PROBLEM* 

?65 

WHAT  IS  THE  VALUE  YOU  HAVE  FOR  THE  FIRST  CONSECUTIVE  INTEGER? 
?11 

GOOD#  YOU  GOT  IT  RIGHT* 

WHAT  DO. YOU  THINK  IS  THE  VALUE  FOR  THE  SECOND  CONSECUTIVE 
I RTEGER? 

?I2 

GOOD  SHOW  DDDDAVID  RORISON  KEEP  IT  UP* 

DAVID#  YOU’LL  HAVE  TQ  EXCUSE  MY  TERRIBLE  STUTTERING* 

IT’S  UNFORTUNATE#  BUT  X HAVE. A SPEECH  IMPEDIMENT* 
l OCCASIONALLY  HAVE  TROUBLE  PRONOUNCING  D’S* 

WHAT  IS  THE  VALUE  YOU’VE  GOTTEN  FOE  THE  THIRD 
CONSECUTIVE  INTEGER? 

? 13  . 

WAY  TO  GO*  YOUR  INTELLECT  IS  ASTOUNDING* 

WHAT  IS  YOUR  VALUE  FOR  YOUR  4TH  CONSECUTIVE  INTEGER* 

?I4 

JUST  WHAT  I WAS  LOOKING  FOR*  KEEP  GOING* 

WHAT  IS  YOUR  VALUE  FOR  THE  FINAL  INTEGER* 

?I4 

THAT’S  NOT  CORRECT* 

HOW  COULD  .THE  5TH  . INTEGER*  14  IF  THE  4TH 
INTEGER*  14*  BETTER  TRY  AGAIN* 

WHAT  IS  YOUR  FINAL  INTEGER? 

?!5 

YEA«DAVXD  YOU’RE  MY  HERO*  YOU  GOT  ALL  5 
INTEGERS  CORRECT* 

NOW#  THAT  YOU’VE  ACCOMPLISHED  THIS  FEAT#  HOW  ABOUT 
TRYING  ANOTHER  PROBLEM? 

TYPE  YES  IF  YOU  WANT  TO#  NO  IF  YOU  DON’T* 

f NO  ’ 

WELL#  I * M SORRY  YOU  DON* T WANT  TO  DO  ANOTHER  PROBLEM. 
mYBE  YOU  WILL  IN  THE  FUTURE. 

BYE-BYE 
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Work  (#0213) 


This  program  was  designed  for  a second  year  algebra  class  to 
individually  practice  solving  work  problems.  The  program  creates 
a file  to  keep  track  of  the  students  who  have  been  assigned  pro- 
blems, the  pertinent  information  about  each  student* s problem,  and 
each  student* s progress.  The  program  allows  each  student  to  re- 
turn to  the  computer  after  he  has  solved  the  problem.  If  the 
student's  answer  is  incorrect,  it  helps  the  student  find  his  er- 
ror. 

Don  Salvin,  12th  Grade 
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>RUN 

THIS  IS  GEORGE  HINKLED INK# MISS  KAVANAGH'S  FAVORITE  COMPUTER# 

WHAT  IS  YOUR  FULL  NAME? 

7DASH  GORDON 

CHARLIE  IS  THE  NAME  OF. MY  FAVORITE  ANT ♦ THE  NAME 
OF  MY  FAVORITE  BEE  IS  JIMMY* JIMMY  AND  CHARLIE  BOTH  CARRY 

SUGAR  FOR  A LIVING*  ' 

. WHEN  JIMMY  IS  WORKING  HIS  HARDEST#  (AS  HE 
ALWAYS  DOES)# HE  CAN  CARRY  ONE  CUP  OF  SUGAR  FOR  A DIS- 
TANCE OF  TEN  FEET  IN  16  DAYS*  BUT  CHARLIE  IS  LAZIER  THAN 
JIMMY  SO  THAT  IT  TAKES  CHARLIE  19  DAYS  TO  CARRY  THE 
SAME  AMOUNT  OF  SUGAR  THE  SAME  DISTANCE* IF  JIMMY  AND  CHARLIE 

WORK  TQGETHER#HOW  MANY  DAYS  DO  YOU  THINK  IT  WILL  TAKE  THEM  \ 

TO  DO  THE  JOB?  ^ 


GOOD-BYE  FOR  NOW.WHEN  YOU  THINK  THAT  YOU  HAVE  THE  CORRECT 
ANSWER# COME  BACK  AND  RERUN  THIS  PROGRAM* 

FINISHED 
DONE!!  DONE!! 

>RUN 

THIS  IS  GEORGE  HINKLEDINK#MISS  KAVANAGH'S  FAVORITE  COMPUTER* 

WHAT  IS  YOUR  FULL  NAME? 

? K 

THE  FOLLOWING  STUDENT! S)  HAVE  BEEN  ASSIGNED  A PROBLEM. 

STUDENT  TIM  FOR  CH.  TIM  FOR  JIM  COR.  ANS. 


GEEORGE  POPY  5 2 1.43 

DASH  GORDON  19  16  8*69 

NOBODY  HAS  COMPLETED  THIS  PROGRAM  YET. 

FINISHED 
DONE!!  DONE!! 
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>RUN 

THIS  IS  GEORGE  HINKLEDI ^K#MISS  KAVANAGH’S  FAVORITE  COMPUTER. 
WHAT  IS  YOUR  FULL  NAME? 

?DASH  GORDON 

HOW  MANY  DAYS  DO  YOU  THINK  IT  WILL  TAKE  FOR  CHARLIE  AND  JIMMY 
WORKING  TOGETHER  TO  CARRY  THE  SUGAR? 

?I  .9 

AH  HA!  DASH  GORDON 

YOU  GOOFED. LET 9 S FIND  OUT  WHERE. 

IF  JIMMY  CAN  CARRY  ALL  OF  THE  SUGAR  IN  16  DAYS#  THEN 
WHAT  IS  THE  NUMERATOR  OF  THE  FRACTION  OF  THE  WORK  THAT  HE 
CAN  DO  IN  ONE  DAY? 

?1 

RIGHT 

WHAT  IS  THE  DENOMINATOR  OF  THE  FRACTION  OF  THE  WORK  THAT  JIMMY 
CAN  DO  IN  ONE  DAY? 

? 16 
GOOD 

IF  CHARLIE  CAN  DO  ALL  OF  THE  WORK  ALONE  IN  19  DAYS  THEN 
WHAT  IS  THE  NUMERATOR  OF  THE  FRACTION  OF  THE  SUGAR  THAT  HE 
CAN  CARRY  IN  ONE  DAY? 

?1 

CORRECT  . 

WHAT  IS  THE  DENOMINATOR  OF  THE  FRACTION  OF  THE  WORK  THAT 
CHARLIE  CAN  DO  IN  ONE  DAY? 

?20 

THE  DENOMINATOR  OF  THE  FRACTION  OF  THE  WORK  THAT  CHARLIE  CAN 
DO  IN  ONE  DAY  WILL  ALWAYS  EQUAL  THE  NUMBER  OF  DAYS  THAT 
CHARLIE  TAKES  TO  DO  THE  JOB  ALONE  OR  19 
WELL#  DASH#  THERE  IS  YOUR  FIRST  MISTAKE! 

NOW  DIVIDE  OUT  THE  FIRST  FRACTION  THAT  YOU  TOLD  ME# COB  THAT  I 
TOLD  YOU!) .WHAT  DO  YOU  GET? 

70.0625 

FINE 

DIVIDE  OUT  THE  SECOND  FRACTION. WHAT  DO  YOU  GET? 

?0.9 

ACH  MEIN  GOTT  DASH!  YOUR  SECOND  MISTAKE! I 

WHAT  IS  THE  MATTER?  IS  YOUR  MENTAL  SLIDE  RULE  STUCK? 

1/  19«  0.052631 579# BUT  I WOULD  HAVE  ACCEPTED  ANYTHING 
BETWEEN  2.631 578947E-03  AND  0.102631579 

NOW. ADD  UP  THE  TWO  DECIMALS  THAT  HAVE  BEEN  DIVIDED  OUT. WHAT 
DO  YOU  GET? 

?0.09 

EXACTLY  RIGHT! 

THIS  DECIMAL  REPRESENTS  THE  AMOUNT  OF  THE  JOB  THAT  JIMMY 
AND  CHARLIE  CAN  DO  IN  ONE  DAY. THE  RECIPROCAL  OF  THIS  NUM- 
BER IS  THE  NUMBER  OF  DAYS  THAT  CHARLIE  AND  JIMMY  WILL  TAKE  TO 
DO  THE  JOB  TOGETHER. WHAT  IS  THE  RECIPROCAL  OF  < 0.115131579)  ? 
?9.5 

WELL#  DASH#  THERE  IS  YOUR  THIRD  MISTAKE!!! 

THE  RECIPROCAL  OF  A NUMBER  IS  SIMPLY  THAT  NUMBER  DIVIDED 
INTO  1. WHAT  IS  0.115131579  INTO  1 ? 

?8.69  . 
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EXACTLY  RIGHT! 

YOU'RE  F INISHEDDASH  GORDON* YOU  HAVE  HADE 

FINISHED 

DONE! I DONE!! 


3 MISTAKES  IN  ALL. 


THIS  IS  QEORSE  HINKLEDINK*MISS  KAVANAOH'S  FAVORITE  COMPUTER* 

VHAT  IS  YOUR  FULL  NAME? 

?K 

the  FOLLOWING  STUDENTCS)  have  been  assigned  a problem* 

STUDENT  TIM  FOR  CH#  TIM  FOR  JIM  COR#  ANS# 


GEEORGE  POPY  5-  8 

DASH  GORDON  19  16 

THE  FOLLOWING  STUDENTCS)  HAVE  COMPLETED  THIS  PROGRAM# 


STUDENT 


NUMBER  OF  ERROR 

ERRORS  MADE  LOCAT IONS 


1 #43 
8#69 


DASH  GORDON  3 C4)#C6)#C8) 

FINISHED 

DONEI!  DONE!! 


4 


£4 


!•»*»  l-> 


wi,|  nX'n  '■?  M 
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Scientific  Notation  (#0214) 

This  program  allows  students  to  either  convert  numbers  from 
their  regular  form  to  scientific  notation  or  into  regular  form 
from  scientific  notation.  If  the  student  makes  a mistake,  it  helps 

the  student  discover  his  error.  ^ . _ _ 

Steve  Swanson,  12th  Grade 


> RUN 

WHAT  IS  YOUR  FULL  NAME? 

? STEVE  SWANSON 

HOW  MANY  PROBLEMS  DO  YOU  WISH  TO  DO*  STEVE? 

? 4 

WHICH  WILL  YOU  BE  INPUTTING  FIRSTS  A NUMBER  IN 
•SCIENTIFIC  NOTATION*  OR  A NUMBER  IN  'REGULAR 
FORM*? 

7 SCI ENTI FI C NO  TATI ON 

INPUT  THE  GIVEN  NUMBER  IN  SCIENTIFIC  NOTATION* 

? 4.35X10T4 

TYPE  IN  YOUR  ANSWER  IN  REGULAR  FORM* 

7 43500 

GOOD  WORK*  STEVE*  THAT'S  EXACTLY  RIGHT* 

TRY  ANOTHER  PROBLEM* 

WHICH  WILL  YOU  BE  INPUTTING  FIRST?  A NUMBER  IN 

'SCIENTIFIC  NOTATION'  OR  A NUMBER  IN  'REGULAR 
FORM'? 

? SCIENTIFIC  NOT 

INPUT  THE  GIVEN  NUMBER  IN  SCIENTIFIC  NOTATION* 

? 4* 35X10 1 4 

TYPE  IN  YOUR  ANSWER  IN  REGULAR  FORM* 

? 4350 

SORRY*  STEVE*  BUT  YOU  MADE  A MI  STAKE* 

WHEN  CONVERTING  FROM  SCIENTIFIC  NOTATION 
TO  REGULAR  FORM*  YOU  MOVE  THE  DECIMAL  POINT 
OF  THE  NUMBER  PRECEDING  THE  MULTIPLICATION  SIGN  THE 
NUMBER  OF  PLACES  INDICATED  3Y  THE  EXPONENT 
OF  THE  10  (TO  THE  LEFT  IF  IT  IS  NEGATIVE*  OR 

TO  THE  RIGHT  IF  IT  IS  POSITIVE)  ADDING  ZEROS  AS  NEEDED. 

IN  WHICH  DIRECTION  WILL  YOU  MOVE  THE  DECIMAL  POINT? 

? RI  GHT 

SO  WHAT  IS  4*35X10t4  WRITTEN  IN  REGULAR  FORM? 

? 43500 

GOOD  WORK*  STEVE*  THAT'S  EXACTLY  RIGHT* 

TRY  ANOTHER  PROBLEM* 

WHICH  WILL  YOU  BE  INPUTTING  FIRST?  A NUMBER  IN 
'SCIENTIFIC  NOTATION'  OR  A NUMBER  IN  'REGULAR 


I 
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f jmn 

l SCIENTIFIC  N* 

INPUT  THE  GIVEN  NUMBER  IN  SCIENTIFIC  NOTATION* 
?-4*35X10t0 

TYPE  IN  YOUR  ANSWER  IN  REGULAR  FORM* 

?-43*  5 


Ii\)  WHICH  DIRECTION  WILL  YOU  MOVE  THE  DECIMAL  POINT? 
? RIGHT 

THAT  WAS  REALLY  AN  UNFAIR  QUESTION* 

SINCE  THE  EXPONENT  WAS  ZERO*  YOU  WILL  NOT 

MOVE  THE  DECIMAL  POINT  AT  ALL* 


SO  WHAT  IS  -4*35X10:0  WRITTEN  IN  REGULAR  FORM? 

? -435* 

THE  CORRECT  ANSWER  I S-4*  35* 

SORRY*  STEVE#  BUT  YOU  MADE  ANOTHER  ERROR* 

LOOK  AT  THE  ANSWER  CAREFULLY  TO  SEE  WHERE  YOU  WENT  WRONG* 
TRY  ANOTHER  PROBLEM* 

WHICH  WILL  YOU  BE  INPUTTING  FIRST:  A NUMBER  IN 
•SCIENTIFIC  NOTATION’  OR  A NUMBER  IN  'REGULAR 
FORM'? 

? SCI  ENTl  FI  C 

INPUT  THE  GIVEN  NUMBER  IN  SCIENTIFIC  NOTATION. 

?4*35X10t-l  ^ „ 

TYPE  IN  YOUR  ANSWER  IN  REGULAR  FORM* 

? 4*35 


WHICH  DIRECTION  WILL  YOU  MOVE  THE  DECIMAL  POINT? 
? RIGHT 


YOU  WILL  MOVE  TO  THE  LEFT* 

SO  WHAT  IS  4*35X10t-l  WRITTEN  IN  REGULAR  FORM? 

GOOD5 WORK.  STEVE,  THAT'S  EXACTLY  RI WT. 

THAT'S  ALL  FOR  NOW*  BYE* 


ERIC 


26 


16 


FRENCH  AND  U.S.  HISTORY 


Hangman  (#0215) 

The  versatility  of  this  program  is  one  of  its  most  valuable 
features.  Currently  a German  class  uses  it,  but  with  suitable  f es 
it  can  be  modified  to  any  subject.  Presently,  a revision  is  being 
written  to  allow  a refresher  arithmetic  class  to  use  it.  The  pro- 
gram is  a good  tutorial  because  it  reveals  clues  to  the  student. 
Those  who  execute  the  program  enjoy  watching  it  fill  in  the  2g 
of  characters  already  identified  and  drawing  the  partially  filled 
gal low.  The  usual  rules  for  the  game  are  followed.  The  program 
requires  no  programming  knowledge  to  execute. 

Mark  Pilant,  10th  Grade 


>RVN 

TYPE  YOUR  FIRST  NAME 


?MLL 

THIS  IS  A PROGRAM  TO  PLAY  HANGMAN • , 

IF  YOU  THINK  YOU  KNOW  THE  WORD  TYPE  *1  KNOW*  WHEN  I ASK  FOR  THE  LETTER. 
YOU  CAN  CHOOSE  WORDS  WITH  5 TO  7 LETTERS  INCLUSIVE. 

TYPE  THE  NUMBER  OF  LETTERS  YOU  WOULD  LIKE  TO  HAVE  IN  YOUR  WORD. 


In  RIGHT*  I'M  READY.  I HAVE  THE  PERFECT  WORD.  YOU'LL  NEVER  GUESS  IT. 

OH!  BY  THE  WAY#  I GUESS  I*D  BETTER  TELL  YOU  NOW#  YOU  ONLY  GET  10  GUESSES 


OR  S E V E N MISTAKES. 

WHAT  LETTER  DO  YOU  CHOOSE. 


? A 

incorrect 

THAT'S  YOUR  FIRST  MISTAKE#  MLL 
YOU  HAVE  9 TRIES  LEFT. 

CLUE  I A NOUN 


1 1 

0 i 

1 
1 
1 

1 

1 


WHAT  LETTER  DO  YOU  CHOOSE* 

?B 

THAT'S  NOT  RIGHT 

THAT'S  YOUR  SECOND  MISTAKE*  MLL 

YOU  HAVE  8 TRIES  LEFT. 

CLUES  A DIE  WORD 

o 

ERIC 
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1 

0 

I 


WHAT  LETTER  DO  YOU  CHOOSE* 

?C 

INCORRECT 

THAT’S  YOUR  THIRD  MISTAKE#  MLL 
YOU  HAVE  7 TRIES  LEFT* 

CLUEt  MINUS  THE  SUFFIX  IT  BECOMES  A MASCULINE  NOUN 


WHAT  LETTER  DO  YOU  CHOOSE* 

?D. 

WHY  DID. YOU  GIVE  ME  THE  WRONG  LETTER? 
THAT’S  YOUR  FOURTH  MISTAKE#  MLL 
YOU  HAVE  6 TRIES  LEFT* 

CLUES  PLURAL  FORMED  BY  ADDING  NEN 


X 1 

0 1 

\!  / 1 

X 

X 

X 

X 


WHAT  LETTER  DO  YOU  CHOOSE* 
?E 

GREAT 

THAT'S  YOUR  FIFTH  TRY#  MLL 
YOUR  WORD  LOOKS  LIKE  THIS 


E 


E 
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WHAT  LETTER  DO  YOU  CHOOSE* 

yOUMN'T  CHOOSE  MORE  THAN  ONE  LETTER  AT  A TIME,  MLL 
WHAT  LETTER  DO  YOU  CHOOSE* 


?F 

INCORRECT 

THAT’S  YOUR  FIFTH  MISTAKE*  MLL 
YOU  HAVE  4 TRIES  LEFT* 

CLUE  I FIRST  LETTER  IS  THE  SAME  AS  THE  WORD  FOR 


FEVER  IN  GERMAN 


l i 

0 1 

\!  / 1 

! 1 

I 
l 
I 


WHAT  LETTER  DO  YOU  CHOOSE* 

?I  KNOW  - _ 

WHAT  DO  YOU  THINK  THE  WORD  IS*  MLL 

?ENKEL  

HA ! HA! HA!  I TOLD  YOU  THAT  YOU  WOULDN’T  GET  IT. 
I SHALL  BE  MERCIFUL  AND  LET  YOU  CONTINUE. 

WHAT  LETTER  DO  YOU  CHOOSE* 

?I 

FIGHT 

1 HAT’S  YOUR  SEVENTH  TRY*  MLL 
YOUR  WORD  LOOKS  LIKE  THIS 

E - - E - X - 

WHAT  LETTER  DO  YOU  CHOOSE. 

7Z 

INCORRECT 

THAT’S  YOUR  SIXTH  MISTAKE*  MLL 
YOU  HAVE  8 TRIES  LEFT. 

CLUEt  A MEMBER  OF  THE  FAMILY 


1 

0 

\!  / 
! 

/ 


1 

1 

1 

1 

1 

l 

1 


WHAT  LETTER  DO  YOU  CHOOSE. 

?I  KNOW 

WHAT  DO  YOU  THINK  THE  WORD  IS*  MLL 


7ENKELIN 

DARN  IT*  YOU  GOT  IT. 
YOU  TO  BE*  MLL 
GOOD-BYE*  MLL 


GUESS  YOU’RE  SMARTER 

. 29 


THAN  I FIGURED 
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French  Literature  and  History  (#0216) 

This  program  has  been  designed  to  test  students  on  French 
literature  and  history.  The  program  uses  four  files.  The  first 
two  store  the  questions  and  the  correct  answers  respectively. 

The  third  contains  phrases  of  encouragement  in  French  that  are 
randomly  written  at  appropriate  points  of  the  tutorial.  The  fourth 
file  stores  eight  extra  questions  and  answers  for  those  students 
who  wish  extra  credit.  This  program,  because  it  is  in  French, 
determines  the  sex  of  the  student  so  the  appropriate  gender  and 
adjective  endings  are  used.  In  addition,  the  program  keeps  a tally 
of  the  problems  missed,  and  at  its  conclusion  gives  the  student 
the  number  of  questions  missed  and  then  a statement  regarding  his 
(or  her)  performance. 


Dale  Klopfer,  12th  Grade 


> RUM 

VOICI  UME  PROGRAMME  EM  FRAMCAI S*  MALHEUREUSEMEMT*  CETTE  MACHINE 
M'EST  PAS  EM  FRAMCAI S*  DOMC  IL  M 'Y  AURA  PAS  D'  ACCEMTS  0U 
D'  AUTRES  CHOSES  FRAMCAI S* 

BONNE  CHANCE!! 

COMMENT  VOUS  APPELE*- V/OUS? 

? MARIE  DUPONT 

QUELLE  PHRASE  CELEBRE  DAMS  <<LA  FARCE  DE  MAI  THE  PATHELI M>>VEUT  DIRE 
<<REMTR0MS  A MOTRE  SUJET>>? 

? BE 

EX AC TEN ENT!  ! 

QUEL  ROI  ETAIT  <<SAIMT  L0UIS>>? 

? LUtOUI  S IX 
EXACTEMEMT  CJRRECTE! ! 

QUEL  POET  DU  MOYEN  AGE  A EU  LE  MAL  DU  PAYS? 

( SUGGESTIONS: CHARLES;  L0UI SI AMA> 

? DU  BELLAY 

MOM.  TU  AS  TORT#  MARIE*  VEUX  TU  SAVOIR  LA  REPOMSE  CORRECTF? 

TAPES  A LA  MACHIME  QUI  OU  MOM 
? MO 

EMCORE  UME  FOIS*  S'lL  TE  PLAIT. 

? MOM 

CA  M'EST  nmTEGAL#  MARIE  — * ■ - 

Q U * EST-CE  QUI  ETAIT  LA  SYMBJLE  DE  FRAMCOIS  I? 

? UME  SALAMAMDRE 
CE  M'EST  PAS  MAL ! 

QUI  ETAIT  ALCOFRIBAS  MASIER? 

? RABELAI S 

TU  AS  RAISON  COMME  D 'HABITUDE! 


30 
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nnr  ETAIT  UN  GRAND  ERUDIT  ET  HUMAMI  STE  HOLLANDAI S QUI  A F.CRI  T 
<<L*EL,OGE  DE  LA  FOLIE»?  <C* ETAIT  PENDANT  LA  RENAISSANCE) 

•>  REMBRANDT 

TU  AS  TORT#  iMARI  E.  VEUX  TU  SAVOIR  LA  REPOMSE  CORRECTE? 

TAPE&  A LA  MACHINE  OUI  00  NON 
?OUI 

qU'EST  CE  QUF.  C' ETAIT  LA  DEVISE  OFFICIELLE  DE  L* ARRAY F DE  THELEMF.? 
7 ffAt  t PF  QLJ’UN  VEUT 

MOM.  TU  AS  TORT#  MARI E.  VEUX  TU  SAVOIR  LA  REPOMSE  CORRECTE? 

TAPE2  A LA  MACH  I ME  OUI  OU  MOM 
7 OUI 

LA  REPOMSE  EST  FAI S CE  QUE  TU  VOUDRAS 
QUI  A ECRIT  LA  «DI  SCOURS  SUR  LA  METHODE»? 

? DESCARTStES 
TRES  TRES  BIEM! 

QUI  ETAIT  JEAM-BAPTI STE  POQUELIM? 

UOL*  TA I R R 

,MOM.  TU  AS  TORT#  MARI  E.  VEUX  TU  SAVOIR  LA  REPOMSE  CORRECTE? 

TAPE2  A LA  iMACHIME  OUI  OU  MOM 
? OlJt 

LA  REPOMSE  EST  -MO LI  ERE 


OUI  A DIT  QUE  LA  POSITION  DE  L 'HOMME  DAMS  L* UNI  VERS  EST  F.MTRE 
L 'IMFI  MI.MEMT  GRAMD  ET  L'IMFIMIMEMT  PETIT? 

? RLAI SE  PASCAL 
VRAI 

OUI  A ECRIT  <<LE  Cl  D»? 

? CORNEILLE 

F.XACTEMF.MT  CORRECTE!  ! 

QUI  ETAIT  LE  CHEF  DU  REGME  DE  LA  TERRF.IJR? 

? 4AHAT 

•MJM.  TU  AS  TORT#  MARIE.  VEUX  TU  SAVOIR  LA  REPOMSE  CORRECTE? 
TAP £4  A LA  MACHIME  OUI  OU  MOM 
? MO  M 

CA  M'EST  DIEM  EGAL#  MARIE 


3 U*  EST“CE  TOE  C’EST  QU’UN  AUTRE  NON  POUIi  L’EGLISF.  DE  SftI NTE-GENEUI  EVE 
DE  SOUFFLOT? 

? MOTRE  DAME  DE  PARIS  ^ 

gjM.  TU  AS  TORT#  MARIE*  VEUX  TU  SAVOIR  LA  RFPOMSE  CORRECTE? 

TAPE4  A LA  MACHIME  OUI  OU  MOM 
? OUI 

LA  REPOMSE  EST  PANTHEON 

QUI  A DIT  <<  APRES  40 1 J LE  DELUGE>>? 

? LOUIS  XV 

TU  AS  RAISO'M  COMME  D'HAAI  TUDE! 

OUI  A PROMO  MCE  CF.T1F  PHRASF.t  <<PARI  S VAUT  PI  EM  UMF.  MASSF.>>? 

? FRANCOIS  I 

•vlOM.  TU  AS  TORT#  <IARIE.  VEUX  TU  SAVOIR  LA  RF.POMSC  CORRECTE? 

TAP E4  A LA  MACHINE  OUI  OU  MOM 


? MOM 

CA  ^1'F.ST  PI  EM  EGAL>  MARI  F. 

DAMS  <<LES  ROMAN  DE  RENARD>> 5 
i CH  AMTF.CLI  M 

yj.jyj.  TU  AS  TORT#  MARIE.  VEUX 
TAPF4  A LA  MACHIME  OUI  OU  MOM 


QUI  F.TAIT  LE  TROMPEUR  TROMPFF? 
TU  SAVOIR  LA  REP34SE  CORRECTE? 


? A t MO  M 

CA  •!  * EST  HI  EM  EGAL#  MARI  E 
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QUI  ETAIT  LE  COMPOSI  TEUR  DES  OPERAS  ET  DES  BALLETS  POUR  LA  COUR  ROYALF 
PENDANT  LA  RENAISSANCE? 

? RAMEAU 
EXCELLENT! 

QU»EST~CE  QUE  C’ETAIT  LA  PERI  ODE  ENTRE  LA  MORT  DE  LOUIS  XIV  ET  LE 
COMMENCEMENT  DU  REGNE  PERSONNEL  DU  LOUIS  XV? 

? LE  t S CENT  JOURS 

NON.  TU  AS  TORT#  MARIE.  VEUX  TU  SAVOIR  LA  REPONSE  CORRECTE? 

TAPEZ  A LA  MACHINE  OUI  OU  NON 
? OUI 

LA  REPONSE  EST  REGENCE 

QUELS  STYLES  SONT  SUGGERES  PAR  LES  STUCSI  LE  BOIS  DOREJ  DES  CUPIDONS1 
ETC? 

? BAROQUE  ET  ROCCOCO 
CORRECTE! 

QUI  ETA  I T LA  FEMME  DE  LOUIS  XVI? 

? MARIE  ANTOINETTE 
EXACTEMENT!  ( 

VEUX-TU  DU  CREDIT  SUPPLEMENTAI RE?  (TAPEZ  A LA  MACHINE  OUI  OU  NON) 

?NON 

ALORS*  VOYONS  TA  NOTE# MARI  E 

MOJNS  9 IL  FAUT  QUE  TU  CULTIVES  TON  JARDIN# 

MARIE  DUPONT 

ADIEU#  MARIE#  MA  BELLE  AMI£!f 


French  Grammar  (#0217) 

This  program  was  designed  to  review  present  subjective  tense 
of  regular  and  irregular  French  verbs.  It  uses  any  array  and  a 
simple  data  file  to  record  the  verb  forms  in  the  present  tense  and 
the  correct  responses  in  the  subjective.  At  the  beginning  of  the 
program,  the  instructions  for  running  the  program  are  given  in 
French. 


Ann  Fritts,  12th ^Grade 

COMMENT  VOUS  APPELEZ-VOUS? 

?ANN  FRITTS 

BON JOUR#  ANN*  VOICI  UN  EXAMEN  SUR  LE  SUBJONTIF  DES  VERBES 
FRANCAIS.  VOICI  LE  PREMIER  VERBS*  NE  FAUT  PAS  ECRIRE  LE  PRONOM 
OU  LES  ACCENTS  * S I MPLEMENT  LA  FORME  DU  VERBE.  BON  CHANCE#  ANN  . 
JL  JOUE  QUELLE  EST  LA  REPONSE? 

? JOUE 

* C fEST  CORRECT! 

NOUS  PORTONS  QUELLE  EST  LA  REPONSE? 

?PORTIONS 
C«EST  CORRECT! 

UE  REPONDS  QUELLE  EST  LA  REPONSE? 

?REPQNDE 
C*EST  CORRECT! 

JLS  ATTENPENT  QUELLE  EST  LA  REPONSE? 

?ATTRNDENT 
Q*EST  CORRECT! 

TU  FINIS  QUELLE  EST  LA  REPONSE? 

?FXNNISSES 

NON#  LA  REPONSE  EST  FINISSES. 

VOUS  CHOISISSEZ  QUELLE  EST  LA  REPONSE?  # O& 

?CHOISSIEZ 


NON,  LA  REPONSE  EST  CHOISISSIEZ. 
J’APPELLE  QUELLE  EST  LA  REPONSE? 
7APPELLE 
C’EST  CORRECT! 

IL  VA  QUELLE  EST  LA  REPONSE? 

?AILLE 

C’EST  CORRECT! 

TU  APERCOIS  QUELLE  EST  LA  REPONSE? 

7APERCOIVES 

C’EST  CORRECT! 

J* ASS I EDS  QUELLE  EST  LA  REPONSE? 

? ASS EYE 
C * EST  CORRECT! 

ILS  ONT  QUELLE  EST  LA  REPONSE? 

?AIENT 

C *EST  CORRECT! 

NOUS  CONNAISSONS  QUELLE  EST  LA  REPONSE? 
7CONNAISSIONS 
C * EST  CORRECT! 

VOTJS  CROYEZ  QUELLE  EST  LA  REPONSE? 

7CROYIEZ 
C • EST  CORRECT! 

TU  DO IS  QUELLE  EST  LA  REPONSE? 

7DOIVES 

C • EST  CORRECT! 

IL  ECRIT  QUELLE  EST  LA  REPONSE? 

? ECRITE 

NON,  LA  REPONSE  EST  ECRIVE. 

J*  ETEINS  QUELLE  EST  LA  REPONSE? 

?ETI t EIGNE 
C*EST  CORRECT! 

VOTJS  ETES  QUELLE  EST  LA  REPONSE? 

7SOYEZ 

C • EST  CORRECT! 

NOUS  FAISONS  QUELLE  EST  LA  REPONSE? 
?FAISIONAtS 

NON,  LA  REPONSE  EST  FASSIONS. 

ILS  METTENT  QUELLE  EST  LA  REPONSE? 

7METTEMT 

C " EST  CORRECT! 

JE  PARS  QUELLE  EST  LA  REPONSE? 

7PARTE 

C • EST  CORRECT! 

VOUS  POUVEZ  QUELLE  EST  LA  REPONSE? 
?POtTJISSIEZ 
C *EST  CORRECT! 

TU  PRENDS  QUELLE  EST  LA  REPONSE? 

? PRENNES 
C *EST  CORRECT! 

NOUS  SAVONS  QUELLE  EST  LA  REPONSE? 

7SACH10NS 

C * EST  CORRECT! 

IL  VAUT  QUELLE  EST  LA  REPONSE? 

7VAILLE 
C’EST  CORRECT! 

JE  VIEWS  QUELLE  EST  LA  REPONSE? 

? VIENNE 
C * EST  CORRECT! 

ILS  VO I ENT  QUELLE  EST  LA  REPONSE? 

? VO I ENT 

C * EST  CORRECT! 

TU  VEUX  QUELLE  EST  LA  REPONSE? 

?VEUILLES 

C * EST  CORRECT! 

AU  REVOIR,  ANN.  Oo 


Presidents  (#0218) 


This  program  allows  a teacher  to  create  a file  of  questions 
and  answers  in  any  area  where  quick  identification  is  sought.  A 
series  of  questions  and  their  answers  about  U.S.  Presidents  has 
already  been  typed  in  for  this  demonstration. 


PRESIDENTS 


HELLO* I WOULD  LIKE  TO  KNOW  YOUR  NAME(FIRST  AND  LAST)* 
• WHAT  IS  IT?ED 

I DON’T  LIKE  TO  REPEAT  MYSELF, BUT  I GUESS  I MUST* 

WHAT  IS  YOUR  FULL  NAME7ED  SATLER 


THIS  PROGRAM  WILL  TEST  YOUR  KNOWLEDGE  OF  THE  PRESIDENTS 
| nir  THE  UNITED  STATES  .YOU  WILL  BE : ASKED  SIX  QUESTIONS 
ABOUT  THE  PRESIDENTS  AND  BE  SCORED  ACCORDINGLY. 

ARE  YOU  READY, ED7AE  YOU 

? --PLEASE  RESPOND  AGAIN 
. ? ARE  YOU 

? 7--PLEA5E  RESPOND  AGAIN 
' ?OF  COURSE 


0 KAY,  LF"'  US  BEGIN.  WHEN  ANSWERING  A QUESTION, 

MAKE  St'  ■:  THAT  YOUR  SPELLING  IS  CORRECT. 

, FIRST  QUESTION, ED. 

! WHO  WAS  THE  FIRST  PRESIDENT  OF  THE  UNITED  STATES? 

? HI S NAME  WAS  GEORGE  WASHINGTON 

'•  3 j qmt 

NEXT  QUESTION. 

WHTCM  PRESIDENT  WAS  ASSASSINATED  BY  JOHN  WILKES  BOOTHE? 

? ABRAHAM  LINCOLN 
GOOD 

. NEXT  QUESTION. 

i WHO  WAS  PRESIDENT  DURING  THE  START  OF  WORLD  WAR  1? 

.?  WQQDROW 

FD, YOU  MUST  INCLUDE  THE  CORRECT  LAST  NAME  IN  YOUR  ANSWER. 
? ? --PLEASE  RESPOND  AGAIN 
? WOODROW  WILSON 
q 'THAT’S  RIGHT 


IRK  NEXT  QUESTION 


34’ 


' / 


24  ’ 


WHICH  PRESIDENT  NON  THE  DISPUTED  ELECTION  OF  1*7 6? 

? HARRISON 

TOO  BAD,ED,YOUR  ANSWER  IS  INCORRECT. NEXT  QUESTION. 

WHO  WAS  ELECTED  PRESIDENT  IN  196* 

? NIXON 

CORRECT 

NEXT  QUESTION. 

WHO  WAS  PRESIDENT  DURING  THE  BEGINNING  OF  THE  GREAT  DEPRESSION?  j 
? HUMPHREY 

TOO  BAD, ED, YOUR  ANSWER  IS  INCORRECT. QUESTIONING  IS  OVER. 

OUT  OF  THE  SIX  QUESTIONS, YOUR  TOTAL  NUMBER  RIGHT  IS  A 
OR  66%  CORRECT, WHICH  IS  FAIR. 

' ED  SATLER,DO  YOU  WANT  TO  RUN  THIS  PROGRAM  AGAIN? WHAT 

j ? ? --PLEASE  RESPOND  AGAIN 
' ? NOPE 


e 
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in  GA8IQ 


Hide  and  Seek 


Space  Wa>t 


The  four  games  in  this  booklet  were  written  and  tested  on  a PDP-10, 
using  release  17  BASIC. 

The  games  are: 

Hide  and  Seek  (Project  Solo  module  #0201)  - page  1 
NIM  (Project  Solo  module  #0202)  - page  6 

MODULO  (Project  Solo  module  #0203)  - page  II 

Space  War  (Project  Scio  module  #0204)  - page  15 


PROJECT  SOLO  / Compute, n Science  dept . / Univ.  of  Pitt*bun.gk{1 521  3) 
Module*  # 020  1 -4  / Je.fi  Lede^en.  [PS] 

(Hide  & Seek  and  MODULO  were  originated  oy  students  of  mathematics 
teacher,  Bud  Valenti. ) 
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HIDE  AND  SEEK 


The  following  program  is  a game  called  "Hide  and  Seek".  This 
game  encourages  students  to  become  familiar  with  the  Cartesian  Co- 
ordinate system  by  asking  them  to  find  four  players  hidden  at  grid 
points  on  a ten  by  ten  graph.  Allowable  grid  points  have  the  form 
(J,K)  where  J and  K are  integers  between  0 and  9 inclusive.  The 
student  is  given  ten  tries  in  which  to  find  the  player* s position. 
After  each  try,  he  is  told  how  close  his  guess  was  to  each  player. 

At  the  end  of  the  game  the  student  can  ask  to  see  where  the  players 
he  didn't  find  were  hidden.  If  the  student  wants  to  play  another 
game  the  players  move  to  new  hidden  locations. 

Aft.er  playing  the  game  "in  his  head",  the  student  should  try 
to  play  the  game  with  the  aid  of  graph  paper  and  a compass.  A good 
student  can  find  all  the  players  in  six  or  seven  moves  by  "triangu- 
lation" , using  an  approach  that  is  similar  to  some  radio  navigational 
systems  (e.g.  LORAN) . 

A sample  run  of  the  program  is  given  below.  This  is  followed 
by  a flow  chart  which  explains  tne  logic  of  the  program.  The  num- 
bers on  the  flow  chart  correspond  to  the  statement  numbers  in  the 
program  listing.  This  listing  is  given  on  page  4.  This  program 
was  written  in  BASIC  for  a PDP-10. 


Sample  RUN  of  /HIDE  AND  SEEK/ 

THIS  IS  THE  GAME  OF  HIDE  AND  SEEK. 

THE  OBJECT  0F  THE  GAME  IS  T0  FIND  THE  F0UR  PLAYERS 
WH0  ARE  HIDDEN  0N  A 10  BY  10  GRID. 

H0MEBASE  WILL  BE  THE  P0SITI0N  AT  <0»0>  AND  ANY  GUESS 
YOU  MAKE  SH0ULD  CONTAIN  TWO  NUMBERS.  THE  FIRST  GIVES 
THE  UNIT  DISTANCE  RIGHT  0F  THE  H0MEBASE  AND  THE  SECOND 
IS  /HE  UNIT  DISTANCE  ABOVE  H0MEBASE. 

YOU  WILL  HAVE  TEN  ATTEMPTS  T0  LOCATE  THESE  PLAYERS 
AND  WILL  BE  TOLD  HOW  CLOSE  YOUR  GUESS  IS 
TO  EACH  PLAYER. 

IF  AFTER  10  TRIES  YOU  ARE  UNABLE  TO  CARRY  OUT  THIS  TASK 
YOU  MAY  CONTINUE  TO  BE  9 ITS  BUT  THE  PLAYERS  WILL 
BE  PERMITTED  TO  MOVE  TO  NEW  LOCATIONS. 


ARE  YOU  READY  TO  BEGIN? 
? YES 


TURN  NUMBER  1 « WHAT  IS  YOUR  GUESS? 

? 5*5 

YOUR  DISTANCE  FROM  PLAYER  1 IS  3.1  UNIT<S). 

YOUR  DISTANCE  FROM  PLAYER  2 IS  2*2  UN1T(S>. 

YOUR  DISTANCE  FROM  PLAYER  3 IS  4*2  UNITCS). 

YOUR  DISTANCE  FROM  PLAYER  4 IS  5.6  UNITCS>. 
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00  Y0U  WANT  T0  PLAY  AGAIN? 
? YES 


TURN  NUMBER  1 * GHAT  IS  Y0UR  GUESS? 

? 5#  5 

Y0UR  DISTANCE  FR0M  PLAYER  1 IS  5*6  UNITCS)* 

Y0UR  DISTANCE  FR0M  PLAYER  2 IS  5*8  UNITCS). 

Y0UR  DISTANCE  FR0M  PLAYER  3 IS  4*4  UNITCS) • 

Y0UR  DISTANCE  PR0M  PLAYER  4 IS  3*1  UNITCS)* 


TURN  NUMBER  2 » WHAT  IS  Y0UR  GUESS? 

? 8*0 

Y0UR  DISTANCE  PR0M  PLAYER  1 IS  11*4  UNITCS)* 
Y0UR  DISTANCE  PR0M  PLAYER  2 IS  11*3  UNITCS)* 
Y0UR  DISTANCE  FR0M  PLAYER  3 IS  9 UNITCS)* 
Y0UR  DISTANCE  PR0M  PLAYER  4 IS  8*2  UNITCS)* 


TURN  NUMBER  3 * WHAT  IS  Y0UR  GUESS? 

? 8#  9 

Y0UR  DISTANCE  FR0M  PLAYER  1 IS  7 UNITCS)* 

Y0UR  DISTANCE  FR0M  PLAYER  2 IS  8 UNITCS)* 

Y0UR  DISTANCE  FR0M  PLAYER  3 IS  1 UNITCS)* 

Y0UR  DISTANCE  FR0M  PLAYER  4 IS  2*2  UNITCS)* 


TURN  NUMBER  4 * WHAT  IS  Y0UR  GUESS? 

? 7*9 

Y0UR  DISTANCE  FR0M  PLAYER  1 IS  6 UNITCS)* 
Y0UR  DISTANCE  FR0M  PLAYER  2 IS  7 UNITCS)* 
Y0U  HAVE  F0UND  PLAYER  3 

Y0UR  DISTANCE  FR0M  PLAYER  4 IS  1*4  UNITCS)* 


TURN  NUMBER  S * WHAT  IS  Y0UR  GUESS? 

? 6*8 

Y0UR  DISTANCE  FR0M  PLAYER  ! IS  S UNITCS)* 
Y0UR  DISTANCE  FR0M  PLAYER  2 IS  6 UNITCS). 
Y0U  HAVE  F0UND  PLAYER  4 


TURN  NUMBER  6 * WHAT  IS  Y0UR  GUESS? 

? 0*8 

Y0UR  DISTANCE  FR0M  PLAYER  1 IS  1*4  UNITCS). 
Y0U  HAVE  F0UND  PLAYER  2 


TURN  NUMBER  7 * WHAT  IS  Y0UR  GUESS? 

? 1*9 

Y0U  HAVE  F0UND  PLAYER  1 

Y0U  HAVE  F0UND  ALL  THE  PLAYERS  IN  7 TURNS! 


D0  Y0U  WANT  T0  PLAY  AGAIN? 
? N0 

THEN  PLEASE  L0G0UT* 
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Hide  and  Seek 


PRINT  DISTANCE 

PRINT  THAT 

OF  THIS  PLAYER 

THIS  PLAYER 

FROM  GUESS 

IS  FOUND 

(390) 

(360) 

-^1 

o 
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sample  LISTING  of  /HIDE  AND  SEEK/ 


4 


5 RANDOMIZE 

10  DIM  P<4#2> 

20  PRINT  "THIS  IS  THE  GAME  OF  HIDE  AND  SEEK*" 

30  PRIMT 

40  PRINT  "THE  OBJECT  0F  THE  GAME  IS  T0  FIND  THE  FOUR  PLAYERS  " 

50  PRINT  "WHO  ARE  HIDDEN  0N  A 10  BY  10  GRID*" 

60  PRINT 

70  PRINT  "H0MEBASE  WILL  BE  THE  POSITION  AT  <0»0>  AND  ANY  GUESS  " 

80  PRINT  "YOU  MAKE  SHOULD  CONTAIN  TWO  NUMBERS*  THE  FIRST  GIVES'* 

90  PRINT  "THE  UNIT  DISTANCE  RIGHT  OF  THE  HOMEBASE  AND  THE  SECOND" 

100  PRINT  "IS  THE  UNIT  DISTANCE  ABOVE  HOMEBASE*" 

110  PRINT 

120  PRINT  "YOU  WILL  HAVE  TEN  ATTEMPTS  TO  LOCATE  THESE  PLAYERS" 

130  PRINT  "AND  WILL  BE  TOLD  HOW  CLOSE  YOUR  GUESS  IS" 

140  PRINT  "TO  EACH  PLAYER." 

150  PRINT 

160  PRINT  "IF  AFTER  10  TRIES  YOU  ARE  UNABLE  TO  CARRY  OUT  THIS  TASK" 
*70  PRINT  "YOU  MAY  CONTINUE  TO  BE  'IT'#  BUT  THE  PLAYERS  WILL" 

*80  PRINT  "BE  PERMITTED  TO  MOVE  TO  NEW  LOCATIONS*" 

190  PRINT 
200  PRINT 

210  PRINT  "ARE  YOU  READY  TO  BEGIN?" 

220  INPUT  AS 

230  IF  AS* "NO"  GOTO  620 

240  GOSUB  1000 

250  LET  T*0 

260  LET  T*T«*1 

270  PRINT 

2gO  PRINT 

290  PRINT  "TURN  NUMBER"!  T!"#  WHAT  IS  YOUR  GUESS?" 

300  INPUT  M*N 

310  FOR  1*1  TO  4 

320  IF  P(I#1>*-1  GOTO  400 

330  IF  PCI,t)«>M  GOTO  380 

340  IF  P(I*2X>N  GOTO  380 

350  LET  P<I*1)*-1 

360  PRINT  "YOU  HAVE  FOUND  PLAYER"! I 
370  GOTO  400 

380  LET  D*SQR< CP<I#1)-M>*2  ♦ CP<I*2>-N> t2> 

390  PRINT  "YOUR  DISTANCE  FROM  PLAYER"! I! "IS"! INTCDO!0>/10! "UNITCS! •" 

400  NEXT  I 

410  FOR  J*1  TO  4 

420  IF  P<J> 1)<>-1  GOTO  470 

430  NEXT  J 

440  PRINT 

450  PRINT  "YOU  HAVE  FOUND  ALL  THE  PLAYERS  IN  "iTi"  TURNS!" 

460  GOTO  580 

470  IF  T<  10  GO  TO  260 

480  PRINT 

490  PRINT  "YOU  DIDN’T  FIND  ALL  THE  PLAYERS  IN  TEN  TRIES*" 

500  PRINT  "DO  YOU  WANT  TO  KNOW  WHERE  THE  PLAYERS  YOU  DIDN'T  " 

510  PRINT  "FIND  WERE  HIDDEN?" 

520  INPUT  BS 

530  IF  BS*"N0"  GOTO  580 
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$40  FOR  I»1  T0  4 

550  IF  PCI#1>«~1  SOTO  570 

560  PRINT  "PLAYER"ll!"  HID  AT  <"f  PCI#  l >I"#"JP<I#8>I") 
570  NEXT  I 
580  PRINT 

590  PRINT  "DO  YOU  WANT  TO  PLAY  AGAIN?" 

600  INPUT  CS 

610  IF  C$»"YES"  SOTO  040 

680  PRINT  "THEN  PLEASE  LOGOUT*" 

630  SOTO  9999 
1000  FOR  J*1  TO  8 
1010  FOR  l«l  TO  4 
1080  PCI#J>»INTCRND*10> 

1030  NEXT  I 
1040  NEXT  J 
1050  RETURN 
9999  END 
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NIN 


To  start  a game  of  Nim,  the  computer  asks  the  student  to  create 
a few  stacks  of  coins.  The  computer  does  this  by  asking  the  student 
the  number  of  stacks  he  wants  and  an  upper  limit  for  the  size  of  all 
of  the  stacks.  Then  the  computer  generates  the  stacks,  prints  out 
the  stack  sizes,  and  asks  the  student  who  can  go  first.  The  compu- 
ter and  student  alternate  turns.  In  a turn,  a player  must  remove 
some  coins  from  one  non-empty  stack.  The  player  who  empties  the 
last  stack  wins. 

A winning  strategy  can  be  developed  using  binary  arithmetic. 

All  one  does  is  to  express  the  size  of  each  stack  in  its  binary  repre- 
sentation and  list  these  representations  so  that  like  powers  of  two 
are  in  the  same  column.  For  example,  suppose  we  have  4 stacks  with 
11  coins,  6 coins,  7 coins  and  3 coins. 


STACK  NO. 

1 

2 

3 

4 


DECIMAL  2**3  2**2 

11  1 0 
6 1 

7 1 

3 


2**1 

1 

1 

1 

1 


2**0 

1 

0 

1 

1 


One  can  see  that  in  some  columns  there  are  an  even  number  of 
ones  (columns  2**2  and  2**1)  and  in  other  columns  an  odd  number  of 
ones  (columns  2**3  and  2**0).  At  the  close  of  a turn,  a winning 
strategy  demands  that  the  player  leaves  an  even  number  of  ones  in 
each  column. 

In  the  above  example,  if  one  takes  9 coins  from  stack  no.  1 
the  stacks  and  their  binary  representations  look  like  this: 


STACK  NO. 
1 
2 

3 

4 


DECIMAL 

2 

6 

7 

3 


2**2  2**1 
1 

1 1 

1 1 

1 


2**0 

0 

0 

1 

1 


Notice  that  there  are  an  even  number  of  ones  in  each  column. 


If  you  begin  your  turn  with  an  even  number  of  ones  in  each 
column,  your  chances  of  winning  depend  upon  your  opponent  making  a 
mistake.  When  the  computer  faces  such  a situation  it  will  take 
one  coin  from  the  first  non-empty  stack. 

This  game  is  a good  way  to  practice  converting  numbers  from 
base  10  to  base  2.  Binary  arithmetic . is  the  arithmetic  used  in 
computers.  A good  understanding  of  binary  arithmetic  is  necessary 
for  your  students  if  they  wish  to  dig  deeply  into  the  workings  of 
a computer. 
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Sample  RUN  of  /NIM/ 


7 


THIS. IS  THE  GAME  OF  NIM. 

WE  START  THE  GAME  WITH  A FEW  STACKS  OF  COINS.  A 
PLAYER  MAY  TAKE  AS  MANY  COINS  FROM  ANY  ONE  STACK 
IN  A TURN.  WE  ALTERNATELY  TAKE  TURNS.  THE  PLAYER 
WHO  EMPTIES  THE  LAST  PILE  OF  COINS  WINS* 

BECAUSE  I *M  A GOOD  SPORT#  YOU  CAN  CHOSE  THE  NUMBER 
OF  STACKSC2- 10)  AND  THE  MAXIMUM  NUMBER  OF  COINS  IN 
A STACKC I • 1 5) • I’LL  EVEN  LET  YOU  CHOSE  WHO  GOES 
FIRST.  Q 

OF  COURSE#  YOU  MUST  TAKE  AWAY  AT  LEAST  ONE  COIN  IN 
A TURN#  AND  YOU  CAN’T  LEAVE  A PILE  WITH  A NEGATIVE 
NUMBER  OF  COINS.  IF  YOU  MAKE  THESE  AND  OTHER  PLAY 
ING  ERRORS  I’LL  LET  YOU  TAKE  YOUR  TURN  OVER. 


HOW  MANY  STACKS  DO  YOU  WANT? 

? 3 

WHAT  IS  THE  MAXIMUM  NUMBER  OF  COINS  IN  A STACK? 
? 6 

THE  STACKS  OF  COINS  NOW  LOOK  LIKE  THIS! 

STACK  1 HAS  5 COINCS). 

STACK  2 HAS  2 COINCS). 

STACK  3 HAS  5 COINCS). 

CAN  I GO  FIRST? 

? YES 

I TAKE  2 COINCS)  FROM  STACK  2 . 

THE  STACKS  OF  COINS  NOW  LOOK  LIKE  THIS! 

-STACK  1 HAS  5 COINCS). 

STACK  3 HAS  5 COINCS). 

FROM  WHICH  STACK  DO  YOU  WISH  TO  REMOVE  COINS? 

? 1 

HOW  MANY  COINS? 

? 3 

I TAKE  3 COINCS)  FROM  STACK  3 . 

THE  STACKS  OF  COINS  NOW  LOOK  LIKE  THIS! 

STACK  1 HAS  2 COINCS). 

STACK  3 HAS  2 COINCS). 

FROM  WHICH  STACK 'DO  YOU  WISH  TO  REMOVE  COINS? 

? 1 

HOW  MANY  COINS? 

? 2 

I TAKE  2 COINCS)  FROM  STACK  3 • 

I WIN.  WANT  TO  FLAY  AGAIN? 

? NO 

PLEASE  LOGOUT. 
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Sample  LISTING  of  /NIM/ 


9 


5 RANDOMIZE 

10  PRINT  "THIS  IS  THE  GAME  OF  NIM*" 

15  PRINT 

20  PRINT  "WE  START  THE  GAME  WITH  A FEW  STACKS  OF  COINS*  A” 

25  PRINT  "PLAYER  MAY  TAKE  AS  MANY  COINS  FROM  ANY  ONE  STACK" 

30  PRINT  "IN  A TURN*  WE  ALTERNATELY  TAKE  TURNS*  THE  PLAYER" 
35  PRINT  "WHO  EMPTIES  THE  LAST  PILE  OF  COINS  WINS*" 

AO  PRINT 

45  PRINT  "BECAUSE  I *M  A GOOD  SPORT#  YOU  CAN  CHOSE  THE  NUMBER" 
50  PRINT  "OF  STACKSC2-10)  AND  THE  MAXIMUM  NUMBER  OF  COINS  IN" 
55  PRINT  "A  STACK* 1-15).  I'LL  EVEN  LET  YOU  CHCBE  WHO  GOES" 

60  PRINT  "FIRST*" 

65  PRINT 

70  PRINT  "OF  COURSE#  YOU  MUST  TAKE  AWAY  AT  LEAST  ONE  COIN  IN" 
75  PRINT  "A  TURN#  AND  YOU  CAN'T  LEAVE  A PILE  WITH  A NEGATIVE" 
80  PRINT  "NUMBER  OF  COINS*  IF  YOU  MAKE  THESE  AND  OTHER  PLAY-" 
#5  PRINT  "ING  ERRORS  I'LL  LET  YOU  TAKE  YOUR  TURN  OVER*" 

90  PRINT 
95  PRINT 

100  PRINT"HQW  MANY  STACKS  DO  YOU  WANT?" 

110  INPUT  K 

111  IF  K>10  GOTO  100 

112  IF  K<2  G0T0100 

120  PRINT  "WHAT  IS  THE  MAXIMUM  NUMBER  OF  COINS  IN  A STACK?" 

130  INPUT  M 

131  IF  M> 1 5 GOTO  120 

132  IF  M< 1 GOTO  120 
135  FOR  1*1  TO  K 

140  LET  XC  I >»lNTCRND*M+»999) 


145  NEXT  I 

150  GO  SUB  1000 

160  PRINT  "CAN  I GO  FIRST?" 

170  INPUT  A$ 

180  IF  A$*"YES"  GOTO  250 

181  GOTO  190 

185  PRINT  "TRY  AGAIN*" 

190  PRINT  "FROM  WHICH  STACK  DO  YOU  WISH  TO  REMOVE  COINS?" 

200  INPUT  I 

201  IF  I >K  GOTO  185 

202  IF  I < 1 GOTO  185 

210  PRINT  "HOW  MANY  COINS?" 

220  INPUT  N 

225  IF  N< 1 GOTO  185 

230  IF  XC I > -N<0  GOTO  185 

240  LET  X C I > *X  C I >«N 

241  FOR  1*1  TO  K 

242  IF  XC I ) <>0  GOTO  250 

243  NEXT  I 

244  PRINT  "YOU  WIN.  WANT  TO  PLAY  AGAIN?" 

245  GOTO  510 

250  FOR  1*1  TO  K 
260  LET  T *XCI) 

270  FOR  J*1  TO  4 

280  LET  KCI# J)=T-INTCT/2>*2 

290  LET  T=lNTCT/2> 


300  NEXT  J 
310  NEXT  I 
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320  FOR  J*1  TO  4 

330  LET  CCJ>*0 

340  FOR  I®  1 TO  K 

350  LET  CC  J)  «C(  J) +KC I .*  J) 

360  NEXT  I 

370  NEXT  J 

375  LET  B*0 

380  FOR  J*1  TO  4 

390  LET  CC J)-INTCCC J>/2>*2 

395  IF  CCJ>*0  GOTO  400 

398  LET  B» 1 

400  NEXT  J 

402  IF  B>0  GOTO  415 

403  FOR  1*1  TO  K 

404  IF  X<I)>0  GOTO  406 

405  NEXT  I 

406  LET  B»1 
410  GOTO  480 
415  FOR  J*1  TO  4 

420  IF  CC5-J>»1  GOTO  430 

425  NEXT  J 

430  LET  J*5-«J 

432  FOR  1*1  TO  K 

435  IF  KC  I # J)  * 1 GOTO  459 

440  NEXT  I 

459  LET  B*0 

461  FOR  J*1  TO  4 

463  IF  CC J>*0  GOTO  471 

465  IF  KCI#J>*0  GOTO  469 

466  LET  B«B+2**C J-l> 

467  GOTO  471 

469  LET  B*B-2**CJ-1> 

471  NEXT  J 

480  LET  XCI>*XCI>-8 

485-  PRINT  "I  TAKE” *B$ **CQ I N C S > FROM  STACK**;  I ;**•" 

490  FOR  1*1  TO  K 
495  IF  XCI>>0  GOTO  535 
500  NEXT  I 

505  PRINT  **I  WIN*  WANT  TO  PLAY  AGAIN?*1 
510  INPUT  B$ 

520  IF  B$*”YESM  GOTO  100 
525  PRINT  **PLEASE  LOGOUT*** 

530  GOTO  9999 
535  GOSUB  1000 
540  GOTO  190 

1000  PRINT  "THE  STACKS  OF  COINS  NOW  LOOK  LIKE  THISs" 

1010  FOR  1*1  TO  K 

1015  IF  X C I ) *0  GOTO  1030 

1020  PRINT  **  STACKM;l;<*HASM;X<I);MCOIN<S)." 

1030  NEXT  I 
1040  PRINT 
1050  RETURN 
9999  END 
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At  the  start  of  this  game,  the  computer  asks  the  studrnt  to 
create  an  imaginary  pile  of  coins.  Then  the  computer  requests  the 
student  to  set  the  maximum  number  of  coins  a player  can  remove  in 
a turn.  Finally  the  student  chooses  who  takes  the  first  turn.  Dur- 
ing the  remainder  of  the  game,  the  players  alternate  turns.  In  his 
turn,  a player  must  remove  at  least  one  coin  from  the  pile,  but  no 
more  than  the  maximum  number  of  coins  set  at  the  beginning  of  play. 

The  player  forced  to  take  the  last  coin  loses. 

The  strategy  of  this  game  is  based  on  modulo  arithmetic.  If 
the  maximum  number  of  coins  a player  may  remove  in  a turn  is  M,  then 
to  gain  a winning  position  a player  at  the  end  of  his  turn  must 
leave  a stack  of  1 modulo  (M+l)  coins.  (If  you  divide  the  number 
of  coins  in  the  stack  by  M+l,  the  remainder  from  this  division  should 
be  one.)  If  at  the  beginning  of  its  turn  the  computer  is  faced  with  1 
modulo  (M+l)  coins  in  the  stack?  it  will  take  only  one  coin  thus  al- 
lowing its  human  opponent  a maximum  number  of  turns  to  error. 


Sample  RUN  of  /MODULO/ 


THIS  IS  THE  GAME  0F  MODULO. 

WE  START  THE  GAME  WITH  AN  IMAGINARY  STACK  0F  C0INS  AND 
THEN  ALTERNATELY  REMOVE  SOME  COINS  FROM  THE  STACK. 

THE  PLAYER  FORCED  TO  TAKE  THE  LAST  COIN  LOSES. 


I WILL  LET  YOU  CHOOSE  THE  ORIGINAL  SIZE  OF  THE  STACK  AND 
THE  MAXIMUM  NUMBER  OF  COINo  A PLAYER  MAY  REMOVE  IN  A 
TURN. 


YOU  FORFEIT: 

1.  IF  YOU  TAKE  MORE  COINS  THAN  THE  MAXIMUM 
NUMBER  ALLOWED  IN  A TURN. 

2.  IF  YOU  TAKE  LESS  THAN  ONE  COIN  AWAY  IN  A TURN. 

3.  IF  YOU  LEAVE  THE  STACK  WITH  A NEGATIVE  NUMBER 
OF  COINS  . 

4.  IF  THE  DIFFERENCE  BETWEEN  THE  ORIGINAL  STACK 
AND  THE  MAXIMUM  NUMBER  OF  COINS  THAT  CAN  BE 
REMOVED  BY  A PLAfER  IN  A TURN  IS  LESS  THAN  TWO. 

5.  IF  THE  MAXIMUM  NUMBER  OF  COINS  A PLAYER  MAY 
REMOVE  IN  A TURN  IS  LESS  THAN  ONE. 

HOW  MANY  COINS  DO  YOU  WANT  TO  PUT  IN  THE  STACK? 

? 25 

UP  TO  HOW  MANY  COINS  CAN  A PLAYER  REMOVE  IN  A TURN? 

? 6 


CAN  I GO  FIRST? 
? YES 
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I TAKE  3 C0INCS) • THAT  LEAVES  22  COINCS)  LE*T  IN  THE 
STACK.  Y0UR  TURN. 

H0W  MANY  C0INS  D0  Y0U  WISH  T0  REM0VE  FR0M  THE  STACK? 
? 4 

THAT  LEAVES  A PILE  0F  18  C0IN<S>. 

I TAKE  3 COINCS) • THAT  LEAVES  15  C0INCS)  LEFT  IN  THE 
STACK.  Y0UR  TURN. 

H0W  MANY  C0INS  D0  Y0U  WISH  T0  REM0VE  FR0M  THE  STACK? 
? 5 

THAT  LEAVES  A PILE  0F  10  COINCS)* 

I TAKE  2 C0INC S) * THAT  LEAVES  8 C0IN<S>  LEFT  IN  THE 
STACK.  YOUR  TURN. 

H0W  MANY  C0INS  D0  YOU  WISH  T0  REMOVE  FR0M  THE  STACK? 
? 6 

THAT  LEAVES  A PILE  0F  2. COINCS). 

I TAKE  l COINCS).  THAT  LEAVES  1 C0INCS)  LEFT  IN  THE 
STACK.  Y0UR  TURN. 

HOW  MANY  COINS  D0  Y0U  WISH  T0  REM0VE  FR0M  THE  STACK? 
? 1 

Y0U  LOSE  • WANT  T0  PLAY  AGAIN? 

? YES 

HOW  MANY  COINS  DO  YOU  WANT  TO  PUT  IN  THE  STACK? 

? 6 

UP  TO  HOW  MANY  COINS  CAN  A PLAYER  REMOVE  IN  A TURN? 

? 3 

CAN  I GO  FIRST? 

? NO 

HOW  MANY  COINS  DO  YOU  WISH  TO  REMOVE  FROM  THE  STACK? 
? 1 

THAT  LEAVES  A PILE  OF  5 C0IN<S). 

I TAKE  1 COINCS).  THAT  LEAVES  4 COINCS)  LEFT  IN  THE 
STACK.  YOUR  TURN. 

HOW  MANY  COINS  DO  YOU  WISH  TO  REMOVE  FROM  THE  STACK? 
? 3 

THAT  LEAVES  A PILE  OF  1 COINCS). 

I LOSE.  WANT  TO  PLAY  AGAIN? 

?NQ 

THEN  PLEASE  LOGOUT 


48 


MODULO 


13 


(560) 


20  PRINT 
30  PRINT 
40  PRINT 
50  PRINT 
60  PRINT 


•’THIS  IS  THE  GAME  0F  MODULO. " (LISTING  OF  MODULO) 

•WE  START  THE  GAME  WITH  AN  IMAGINARY  STACK  0F  C0INS  AND" 
"THEN  ALTERNATELY  REMOVE  S0ME  C0INS  FR0M  THE  STACK*  ** 

"THE  PLAYER  FORCED  T0  TAKE  THE  LAST  COIN  LOSES." 


70  PRINT 

80  PRINT  "I  WILL  LET  YOU  CHOOSE  THE  ORIGINAL  SIZE  OF  THE  STACK  AND" 
90  PRINT  "THE  MAXIMUM  NUMBER  OF  COINS  A PLAYER  MAY  REMOVE  IN  A" 

100  PRINT  "TURN." 


110  PRINT 
120  PRINT 
130  PRINT 
140  PRINT 
150  PRINT 

160  PRINT 
17  0 PRINT 
180  PRINT 
190  PRINT 
200  PRINT 
210  PRINT 
215  PRINT 
220  PRINT 
230  PRINT 


"YOU  FORFEIT*" 

!•  IP*  YOU  TAKE  MORE  COINS  THAN  THE  MAXIMUM" 

" NUMBER  ALLOWED  IN  A TURN." 

" 2.  IF  YOU  TAKE  LESS  THAN  ONE  COIN  AWAY  IN  A TURN. 

3*  YOU  LEAVE  THE  STACK  WITH  A NEGATIVE  NUMBER" 
" OF  COINS  ." 

4*  IP*  the  DIFFERENCE  BETWEEN  THE  ORIGINAL  STACK" 

" AND  THE  MAXIMUM  NUMBER  OF  COINS  THAT  CAN  BE  " 

REMOVED  BY  A PLAYER  JN  A TURN  IS  LESS  THAN  TWO 
" 5.  IF  THE  MAXIMUM  NUMBER  OF  COINS  A PLAYER  MAY" 

" REMOVE  IN  A TURN  IS  LESS  THAN  ONE." 


240  PRINT  "HOW  MANY  COINS  DO  YOU  WANT  TO  PUT  IN  THE  STACK?" 
250  INPUT  N 
260  PRINT 


270  PRINT  "UP  TO  HOW  MANY  COINS  CAN  A PLAYER  REMOVE  IN  A TURN?" 
280  INPUT  M 


290  IF  M <=0  GOTO  580 
300  PRINT 

330  IF  N-M< 2 GOTO  580 
340  PRINT  "CAN  I GO  FIRST?" 
350  INPUT  A$ 

360  IF  A$= "YES"  GOTO  450 
365  PRINT 


370  PRINT  "HOW  MANY  COINS  DO  YOU  WISH  TO  REMOVE  FROM  THE  STACK?" 

380  INPUT  S 

390  IF  S<=0  GOTO  580 
400  IF  S>M  GOTO  580 
410  LET  N=N-S 
420  IF  N<0  GOTO  580 
430  IF  N=0  GOTO  560 

440  PRINT  ‘THAT  LEAVES  A PILE  OF"; Nl "COINCS) . " 

450  PRINT 

455  LET  S=M-INT<N/CM+ 1 ) J * (h+  1 ) - 1 

460  IF  S>0  GOTO  480 

465  IF  S— 0 GOTO  475 

470  L^T  S=M 

47  2 GOTO  480 

47  5 LET  S=  1 

480  LET  N=N-S 

490  IF  N=0  GOTO  540 

500  PRINT  "I  TAKE";  SJ  "C0INCS).  THAT  LEAVES*';  N;  "CGI  N<  S)  LEFT  IN  THE  " 
510  *■*•*! NT  "STACK.  YOUR  TURN." 

PRINT 


53  u -V-TO 
540  P*- 7"T 
550  GOTO 
560  "RTVT 
570  M^lO 


37  0 

"7  LOSE.  WANT  TO  PLAY  AGAIN?" 

59  0 

**Y~U  LOSE  . WANT  TO  PLAY  AGAIN  ? 
59  0 


M 


580  PRINT  "YOU  FORFEIT • WANT  TO  PLAY  AGAIN?" 


590  INPUT  B$ 

600  TF  B$="YES"  GOTO  *30 
700  PRINT  "THEN  PLEASE  LOG  OUT. 
.999  END 
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The  following  game  is  called  "Space  War".  Space  War  cnallenges 
a student  to  visualize  spatial  positions  in  polar  coordinates.  The 
object  is  to  detonate  an  explosive  within  a certain  distance  of  a germ 
laden  ship.  This  ship  is  orbiting  a planet  at  a constant  altitude 
and  orbital  rate  (degrees/hour).  The  location  of  the  ship  is  hid- 
den by  a device  that  renders  the  ship  invisible,  but  after  each 
bomb  the  student  is  told  how  close  to  the  enemy  ship  his  bomb  ex- 
ploded, The  challenge  to  the  student  is  to  try  to  hit  an  invis- 
ible moving  target  with  a limited  number  of  shots. 

You  can  explain  to  your  students  that  the  planet  can  be  re- 
placed by  a point  at  its  center  (called  the  origin),  then  the  ship’s 
position  can  be  given  as  a distance  from  the  origin  and  an  angle 
between  its  position  and  the  eastern  edge  of  the  planet. 


direction 
of  orbit 


E 


The  distance  of  the  bomb  from  the  ship  is  computed  using  the 
law  of  cosines  (see  line  430  of  the  program  listing).  The  law  of 
cosines  states 


D=^R**'S+D1**2+R*D1*C0S  (A-Al) 


E 


where  D is  the  distance  between  the  ship  and  the  bomb,  R is  the  al- 
titude of  the  ship,  D1  is  the  altitude  of  the  bomb,  and  A-Al  is  the 
angle  between  the  ship  and  the  bomb.  Ask  your  students  where  the 
correction  is  for  A-A1>180  degrees.  (lines  410  and  420) 


Practice  Off-Line  Problem; 

Aircraft  appear  on  radar 
as  blips  of  the  form  "=M . 

What  is  the  distance  between 
the  TWA  and  United  aircraft 
shown  on  the  radar  screen  on 
the  right. 


360 


270 


090 


225 


Space  War 


o 

ERIC 


52 


17 


Sample  RUN  of  /SPACE  WAR/ 


SOMEWHERE  ABOVE  YOUR  PLANET  IS  A ROMULAN  SHIP* 

THIS  SHIP  IS  IN  A CONSTANT  POLAR  ORBIT*  IT’S 
DISTANCE  FROM  THE  CENTER  OF  YOUR  PLANET  IS  FROM 
10/000  TO  30/000  MILES  AND  AT  IT  S PRESENT  VELOCITY  CAN 
CIRCLE  YOUR  PLANET  ONCE  EVERY  12  TO  36  HOURS* 

UNFORTUNATELY  THEY  ARE  USING  A CLOAKING  DEVICE  SO 
YOU  ARE  UNABLE  TO  SEE  THEM/  BUT  WITH  A SPECIAL 
INSTRUMENT  YOU  CAN  TELL  HOW  NEAR  THEIR  SHIP  YOUR 
PHOTON  BOMB  EXPLODED.  YOU  HAVE  SEVEN  HOURS  UNTIL  THEY 
HAVE  BUILT  UP  SUFFICIENT  POWER  IN-ORDER  TO  ESCAPE 
YOUR  PLANET’S  GRAVITY. 

YOUR  PLANET  HAS  ENOUGH  POWER  TO  FIRE  ONE  BOMB  AN  HOUR. 

AT  THE  BEGINNING  OF  EACH  HOUR  YOU  WILL  BE  ASKED  TO  GIVE  AM 
ANGLE  (BETWEEN  0 AND  360)  AND  A DISTANCE  IN  UNITS  OF 
100  MILES  (BETWEEN  100  AND  300)/  AFTER WHICH  YOUR  BOMB’S 
DISTANCE  FROM  THE  ENEMY  SHIP  WILL  BE  GIVEN. 

AN  EXPLOSION  WITHIN  5/000  MILES  OF  THE  ROMULAN  SHIP 
WILL  DESTROY  IT® 

BELOW  IS  A DIAGRAM  TO  HELP  YOU  VISUALIZE  YOUR  PLIGHT. 


90 

t 

0000000000000 
0000000000000000000 
000000  000000 
00000  00000 
00000  XXXXXXXXXXX  00000 


180<== 
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XXXXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXX 


0000 

0000 

0000 

0000 

00000 

0000 

GOOO 

0000 

oooco 


==>0 


00000  XXXXXXXXXXXXX  00000 
00000  00000 
000000  000000 
00000000000000000000 
000000000000000 
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X - YOUR  PLANET 

0 - THE  ORBIT  OF  THE  ROMULAN  SHIP 

ON  THE  ABOVE  DIAGRAM#  THE  ROMULAN  SHIP  IS  CIRCLING 
COUNTERCLOCKWISE  AROUND  YOUR  PLANET*  DON'T  FORGET 
WITHOUT  SUFFICIENT  POWER  THE  ROMULAN  SHIP'S  ALTITUDE 
AND  ORBITAL  RATE  WILL  REMAIN  CONSTANT* 

GOOD  LUCK.  THE  FEDERATION  IS  COUNTING  ON  YOU* 


HOUR  1 > AT  WHAT  ANGLE  DO  YOU  WISH  TO  SEND 
YOUR  PHOTON  BOMB? 

? 0 

HOW  FAR  OUT  DO  YOU  WISH  TO  DETONATE  IT? 

? 200 


YOUR  PHOTON  BOMB  EXPLODED  357*237  *10t2  MILES  FROM  THE 
THE  ROMULAN  SHIP 


HOUR  2 » AT  WHAT  ANGLE  DO  YOU  WISH  TO  SEND 
YOUR  PHOTON  BOMB? 

? 180 

.HOW  FAR  OUT  DO  YOU  WISH  TO  DETONATE  IT? 

? 200 


YOUR  PHOTON  BOMB  EXPLODED  267*336  *10*2  MILES  FROM  THE 
THE  ROMULAN  SHIP 


HOUR  3 # AT  WHAT  ANGLE  DO  YOU  WISH  TO  SEND 
YOUR  PHOTON  BOMB? 

? 180 

HOW  FAR  OUT  DO  YOU  WISH  TO  DETONATE  IT? 

? 200 


YQUR  PHOTON  BOMB  EXPLODED  295*315  *10»2  MILES  FROM  THE 
THE  ROMULAN  SHIP 


HOUR  A » AT  WHAT  ANGLE  DO  YOU  WISH  TO  SEND 
YOUR  PHOTON  BOMB? 

7 250 

HOW.  FAR  HUT  DO  YOU  WISH  TO  DETONATE  IT? 

? 200 
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YOUR  PHOTON  BOMB  EXPLODED  103*558  *10*2  MILES  FROM  THE 
WE  ROMULAN  SHIP 


HOUR  5 * AT  WHAT  ANGLE  DO  YOU  WISH  TO  SEND 
YOUR  PHOTON  BOMB? 

? 250 

HOW  FAR  OUT  DO  YOU  WISH  TO  DETONATE  IT? 

? 200 


YOUR  PHOTON  BOMB  EXPLODED  138*378  *10*2  MILES  FROM  THE 
WE  ROMULAN  SHIP 


HOUR  6 * AT  WHAT  ANGLE  DO  YOU  WISH  TO  SEND 
YOUR  PHOTON  BOMB? 

? 300 

HOW  FAR  OUT  DO  YOU  WISH  TO  DETONATE  IT? 

? 200 


YOUR  PHOTON  BOMB  EXPLODED  30. 1494  *10t2  MILES  FROM  THE 
WE  ROMULAN  SHIP 

YOU  HAVE  SUCCESSFULLY  COMPLETED  YOUR  MISSION* 

ANOTHER  ROMULAN  SHIP  HAS  GONE  INTO  ORBIT* 

DO  YOU  WISH  TO  TRY  TO  DESTROY  IT? 

? NO 

PLEASE  LOGOUT 


Sample  LISTING  of  /SPACE  WAR/ 


5 RANDOM I 
10  PRINT 
15  PRINT 
20  PRINT 
25  PRINT 

30  PRINT 

31  PRINT 
35  PRINT 
40  PRINT 
45  PRINT 
50  PRINT 
55  PRINT 
AO  PRINT 
65  PRINT 
70  PRINT 
75  PRINT 
80  PRINT 


ZF. 

"SOMEWHERE  ABOVE  YOUR  PLANET  IS  A ROMULAN  SHIP." 

"THIS  SHIP  IS  IN  A CONSTANT  POLAR  ORBIT*  IT  S" 

"DISTANCE  FROM  THE  CENTER  OF  YOUR  PLANET  IS  FROM" 

"10*000  TO  30*000  MILES  AND  AT  IT'S  PRESENT  VELOCITY  CAN" 
"CIRCLE  YOUR  PLANET  ONCE  EVERY  12  TO  36  HOURS." 

"UNFORTUNATELY  THEY  ARE  USING  A CLOAKING  DEVICE  SO" 

"YOU  ARE  UNABLE  TO  SEE  THEM*  BUT  WITH  A SPECIAL  " 
"INSTRUMENT  YOU  CAN  TELL  HOW  NEAR  THEIR  SHIP  YOUR" 

"PHOTON  BOMB  EXPLODED.  YOU  HAVE  SEVEN  HOURS  UNTIL  THE'.Y" 
"HAVE  BUILT  UP  SUFFICIENT  POWER  IN  ORDER  TO  ESCAPE 
"YOUR  PLANET'S  GRAVITY." 

"YOUR  PLANET  HAS  ENOUGH  POWER  TO  FIRE  ONE  BOMB  AN  HOUR*" 
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85  PRINT  " 
90  PRINT  " 
95  PRINT  M 
100  PRINT 
105  PRINT 

110  PRINT 

111  PRINT 
ll/l  PRINT 

115  PRINT 

116  PRINT 

117  PRINT 

168  PRINT 

169  PRINT 

170  PRINT 

171  PRINT 

172  PRINT 

173  PRINT 
17/1  PRINT 

175  PRINT 

176  PRINT 

177  PRINT 

178  PRINT 

179  PRINT 

180  PRINT 

181  PRINT 

182  PRINT 

183  PRINT 
18/1  PRINT 

185  PRINT 

186  PRINT 

187  PRINT 

188  PRINT 

189  PRINT 

190  PRINT 

191  PRINT 

192  PRINT 

195  PRINT 

196  PRINT 

197  PRINT 

198  PRINT 

199  PRINT 

200  PRINT 

201  PRINT 
20  3 PR. I NT 
20/1  PRINT 


AT  THE  BEGINNING  UF  EACH  HOUR  YOU  WILL  BE  ASKED  TO  GI VE  AN 
ANGLE  (BETWEEN  0 AND  360)  AND  A DISTANCE  IN  UNITS  OF" 

100  MILES  (BETWEEN  100  AND  300),  AFTERWHICH  YOUR  BOMB'S” 
••DISTANCE  FROM  .THE  ENEMY  SHIP  WILL  BE  GIVEN." 

"AN  EXPLOSION  WITHIN  5,000  MILES  OF  THE  ROMULAN  SHIP" 

"WILL  DESTROY  IT." 

"BELOW  IS  A DIAGRAM  TO  HELP  YOU  VISUALIZE  YOUR  PLIGHT." 


1 1 90" 

M »*' 

M 0000000000000" 

M 0000000000000000000" 

.•  000000  000000" 

••  00000  00000" 

••  00000  XXXXXXXXXXX  00000" 

M 00000  XXXXXXXXXXXXXXX  0000" 

*•  0000  XXXXXXXXXXXXXXXXX  0000" 

M 0000  XXXXXXXXXXXXXXXXXXX  0000" 

M 0000  XXXXXXXXXXXXXXXXXXXXX  0000" 

••180<=*  00000  XXXXXXXXXXXXXXXXXXXXX  00000  ««>0" 

••  0000  XXXXXXXXXXXXXXXXXXXXX  0000" 

••  0000  XXXXXXXXXXXXXXXXXXX  0000" 

••  0000  XXXXXXXXXXXXXXXXX  0000" 

••  00000  XXXXXXXXXXXXXXX  00000" 

••  00000  XXXXXXXXXXXXX  00000" 

••  00000  00000" 

M 000000  000000" 

.•  00000000000000000000" 

..  000000000000000" 

M !•• 

••  270" 


"X  - YOUR  PLANET" 

"0  - THE  ORBIT  OF  THE  ROMULAN  SHIP" 

"ON  THE  ABOVE  DIAGRAM,  THE  ROMULAN  SHIP  IS  CIRCLING" 
"COUNTERCLOCKWISE  AROUND  YOUR  PLANET.  DON'T  FORGET" 
"WITHOUT  SUFFICIENT  POWER  THE  ROMULAN  SHIP'S  ALTITUDE" 
"AND  ORBITAL  RATE  WILL  REMAIN  CONSTANT." 

"GOOD  LUCK.  THE  FEDERATION  IS  COUNTING  ON  YOU." 


• • 


270  LET  A=INT(RND*360 ) 

280  LET  D-INT(RND*200 ) +100 
290  LET  RMNT(RND*20)  +10 


300  LET  H=0 

310  IF  H=7  GOTO  490 

320  LET  H«H+1 
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325  PRINT 

326  PRINT 

330  PRINT  "H0UR"1H!*S  AT  WHAT  ANGLE  DO  YOU  WISH  TO  SEND" 

335  PRINT  "YOUR  PHOTON  BOMB?" 

340  INPUT  A1 

350  PRINT  "HOW  FAR  OUT  DO  YOU  WISH  TO  DETONATE  IT?" 

360  INPUT  DI 

365  PRINT 

366  PRINT 
370  LET  A»A+R 

380  IF  A«360  GOTO  400 
390  LET  A»A-360 
400  LET  T»ABS<A*Ai> 

410  IF  T<180  GOTO  430 
420  LET  T-360-T 

430  LET  C«SQR<D^D*Di*D!-2*D*DI*C05CT*3* 14159/ 180) > 

440  PRINT  "YOUR  PHOTON  BOMB  EXPLODED"! CJM* l Of 2 MILES  FROM  THE" 
445  PRINT  "THE  ROMULAN  SHIP" 

450  IF  C««50  GOTO  470 
460  GOTO  310 

470  PRINT  "YOU  HAVE  SUCCESSFULLY  COMPLETED  YOUR  MISSION." 

480  GOTO  500 

490  PRINT  "YOU  HAVE  ALLOWED  THE  ROMULANS  TO  ESCAPE." 

500  PRINT  "ANOTHER  ROMULAN  SHIP  HAS  GONE  INTO  ORBIT." 

510  PRINT  "DO  YOU  WISH  TO  TRY  TO  DESTROY  IT?" 

520  INPUT  CS 

530  IF  CS»"YE S"  GOTO  270 
540  PRINT  "PLEASE  LOGOUT" 

999  END 
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LUNAR  Module 


3052  Warrington  Road 
Shaker  Heights , Ohio  44120 
May  30 , 1972 


Project  Solo 

University  of  Pittsburgh 
Department  of  Computer  Science 
Pittsburgh,  Pennsylvania  15213 

Dear  Sirs: 

I thought  you  might  be  interested  in  a program  I wrote  recently. 

My  program  is  called  LMLAND.  This  means  Lunar  Module  LANDer.  It  simu- 
lates the  lunar  module  landing  on  the  moon  in  only  one  direction  (ver- 
tical) . The  user  attempts  to  land  the  module  with  the  following  know- 
ledge : 

1.  The  LM  starts  at  70  miles  from  the  surface. 

2.  The  LM  starts  with  30,000  units  of  fuel. 

3.  Fuel  is  consumed  at  the  rate  of  one  unit  for  every  100  pounds  of 
thrust  per  second. 

4.  The  engine  can  be  fired  for  1,000  to  10,000  pounds  of  thrust  for  10 
second  periods. 

5.  The  engine  does  not  have  to  be  fired  in  a ten  second  period. 

6.  The  thrust  is  entered  in  hundreds  of  pounds  of  thrust. 

The  program  does  not  take  into  account  the  change  in  weight  due  to 
the  change  in  height  or  the  change  in  the  amount  of  fuel  (fuel  weighs 
something!).  The  program  tells  the  user  what  10  second  period  he  is 
working  on,  the  rate  downward  in  feet  per  second  (fps),  the  number  of 
miles  from  the  surface,  and  the  number  of  units  of  remaining  fuel.  After 
telling  the  user  all  of  this  information,  the  user  must  put  in  his  thrust 
If  the  number  in  the  fps  column  becomes  negative,  the  ship  is  traveling 
away  from  the  surface  of  the  moon.  This  simulator  is  fairly  accurate  in 
that  the  distance  is  realistic,  the  thrust  available  from  the  engine  is 
realistic,  and  the  calculations  ai\*  accurate  according  to  the  mass  of 
the  lunar  module,  the  gravitational  pull,  etc.  The  amount  of  fuel,  and 
the  fuel  consumtion  are  mere  guesses  that  make  the  execution  of  the  pro- 
gram interesting  and  a challenge.  The  ship  must  be  landed  at  30  fps  or 
slower  to  be  considered  a landing.  I landed  the  ship  once.  This  is  the 
only  time  it  has  ever  been  landed. 

The  program  was  written  in  BASIC  for  an  HP  2116C. 

Sincerely  yours, 

r 

Lawrence  Siegel 

Ninth  grade  at  Woodbury  Junior  High 


At  last — a module  about  modules.  As  can  be  seen  from  the  above  letter, 
this  program  was  sent  to  us  by  a ninth  grade  student.  We  thought  it  was 
so  good  that  we  are  mailing  it  to  all  of  our  readers.  Oi.r  file  number 
for  this  unit  is  #0221.  , 


1 


m 


Y$J  ARE  IN  THE  LUNAR  LANDER  AND  MUST  LAND  MANUALLY 
BECAUSE  A SOLAR  FLARE  HAS  ENDED  COMMUNICATION  WITH 
MISSION  CONTROL.  THE  LM  COMPUTER  IS  INOPERABLE. 

YOU  HAVE  30# 000  UNITS  OF  FUEL  AND  ARE  70  MILES  FROM 
the  SURFACE.  YOU  CAN  FIRE  THE  DESCENT  ENGINE  FOR  0 LBS. 
OF  THRUST  OR  FOR  1000  TO  10000  LBS.  OF  THRUST  FOR  10 
SECOND  PERIODS*  YOUR  FUEL  IS  USED  AT  THE  RATE  OF 
1 UNIT  FOR  EVERY  100  POUNDS  OF  THRUST  PER  SECOND. 

THE  THRUST  IS  ENTERED  IN  HUNDREDS  OF  POUNDS  OF  THRUST. 
GOOD  LUCK 


SEC 

FPS 

MILES  UP 

FUEL 

THRUST < 100#) 

10 

300 

70 

30000 

?0 

20 

351*52 

69*383 

30000 

?0 

30 

403.04 

68*6685 

30000 

7-10 

ILLEGAL 

30 

ENTRY. • *TR\  AGAIN 
403*04 

68*6685 

30000 

?0 

40 

454.56 

67*8564 

30000 

710000 

ILLEGAL 

40 

ENTRY* ..TRY  AGAIN 
454*  56 

67*8564 

30000 

70 

50 

506*08 

66*9467 

30000 

70 

60 

557*6 

65*9394 

30000 

70 

70 

609*12 

64.8345 

30000 

70 

80 

660*64 

63*6321 

30000 

70 

90 

712*16 

62*3321 

30000 

70 

100 

763*68 

60*9345 

30000 

70 

1 10 

815*2 

59*4394 

30000 

70 

120 

866*72 

57*8467 

30000 

70 

1 30 

918*24 

56* 1 564 

30000 

70 

1 40 

969*76 

54*3685 

30000 

70 

1 50 

1021 *28 

52*483 

30000 

70 

1 60 

1072*8 

50*5 

30000 

70 

1 70 

1 124*32 

48*4194 

30000 

70 

1 80 

1175*84 

46*2412 

30000 

70 

190 

1227.36 

43*9655 

30000 

70 

200 

1278*88 

41*5921 

30000 

70 

210 

1330*4 

39.1212 

30000 

70 

220 

1381 *92 

36*5527 

30000 

?75 

230 

1357*97 

33*9581 

29250 

7100 

240 

1308*87 

31 • 4327 

28250 

7100 

2 50 

1259*76 

29*0003 

27250 

7100 

260 

1210*66 

26*  6609 

26250 

7 1 00 

270 

1161*55 

24*4145 

25250 

7100 

280 

1112*45 

22*2611 

24250 

7100 

290 

1063*34 

20*2007 

23250 

7 1 00 

300 

1014*24 

18*2333 

22250 

7100 

310 

965.132 

16*3589 

21250 

7100 

320 

91 6*027 

14*5775 

20250 

7100 

330 

866*922 

12.8891 

19250 

7100 

340 

817.817 

1 1 .2937 

18250 

7100 

350 

768.712 

9*79127 

1 7250 

7100 

360 

719.607 

8*38187 

16250 

7100 

370 

670.502 

7.06548 

15250 

7100 

380 

621.397 

5*84209 

14250 

7100 

390 

572.292 

4.71171 

13250 

7100 

400 

523.187 

3*67432 

12250 

7100 

410 

474.082 

2.72994 

11250 

7100 

420 

424.977 

1 .87856 

10250 

7100 

430 

375.872 

1.12018 

92  50 

7100 

O 440 

326*767 

.454799 

82  50 

7100 

ERJQmpact 

189*315  MPH  YOU 

BLEW  IT  60 

I 


3 


RUN 

YOU  ARE  IN  THE  LUNAR  LANDER  AND  MUST  LAND  MANUALLY 
BECAUSE  A SOLAR  FLARE  HAS  ENDED  COMMUNICATION  WITH 
MISSION  CONTROL.  THE  LM  COMPUTER  IS  INOPERABLE* 

YOU  HAVE  30*000  UNITS  OF  FUEL  AND  ARE  70  MILES  FROM 
THE  SURFACE.  YOU  CAN  FIRE  THE  DESCENT  ENGINE  FOR  0 LBS* 
OF  THRUST  OR  FOR  1000  TO  10000  LBS*  OF  THRUST  FOR  10 
SECOND  PERIODS*  YOUR  FUEL  IS  USED  AT  THE  RATE  OF 
1 UNIT  FOR  EVERY  100  POUNDS  OF  THRUST  PER  SECOND. 

THE  THRUST  IS  ENTERED  IN  HUNDREDS  OF  POUNDS  OF  THRUST* 
GOOD  LUCK 


SEC 

FPS 

MILES  UP 

FUEL 

10 

300 

70 

30000 

00 

351*52 

69*383 

30000 

30 

403*04 

68*6685 

30000 

40 

454*56 

67.8564 

30000 

50 

506*08 

66*9467 

30000 

200 

1278*88 

41*5921 

30000 

r>  1 ft 

1330*4 

39.1212 

30000 

220 

1306.45 

36*6242 

29250 

230 

1257.35 

34.1963 

28250 

240 

1208*24 

31*8615 

27250 

250 

1 1 59* 14 

29.6197 

26250 

260 

1 1 10.03 

27*4708 

25250 

270 

1060.93 

25*415 

242  50 

280 

1011*82 

23*4522 

23250 

290 

962.717 

21 *5824 

22250 

300 

913*612 

19*8055 

21250 

310 

864.507 

18*1217 

20250 

320 

815.402 

16*  5309 

19250 

330 

766.297 

15*0331 

182  50 

340 

71 7*192 

13*6282 

17250 

350 

668.087 

12*3164 

16250 

360 

669*294 

1 1 .05 

15750 

370 

620.189 

9*82886 

14750 

380 

571.084 

8.70076 

13750 

390 

521.979 

7.66566 

12750 

400 

472*875 

6.72357 

11750 

410 

423*77 

5*87447 

10750 

420 

374*665 

5.11838 

9750 

430 

325.56 

4*  45529 

8750 

440 

301.61 1 

3*86138 

8000 

450 

2 52.506 

3.33665 

7000 

460 

253.713 

2.85727 

6500 

470 

229*765 

2.39943 

5750 

480 

180.66 

2*01077 

4750 

490 

186.898 

1 .66271 

4300 

500 

162.95 

1 .331 41 

3550 

510 

1 1 3.845 

1*0693 

2550 

520 

64*7395 

.900183 

1550 

530 

81 *0408 

.762134 

1200 

540 

87*2795 

.602739 

750 

550 

93.5183 

•431529 

300 

OUT  OF 

FUEL  AT  .23421 

MILES  UP 

IMPACT 

IN  ABOUT  20  SECONDS 

IMPACT 

150*744  MPH 

YOU  BLEW  IT 

ERIC  61 


THRUST <100#) 
70 
?0 
70 
?0 
?0 


i 

I 

\ 


?0 

775 

7100 

7100 

7100 

7100 

7100 

7100 

7100 

7100 

7100 

7100 

7100 

7100 

7100 

7 50 

7100 

7100 

7100 

7100 

7100 

7100 

7100 

775 

7100 

?D0 

775 

7100 

745 

775 

7100 

7100 

735 

745 

745 

730 


A 


F 


II 


20  PRINT  "YOU  ARE  IN  THE  LUNAR  LANDER  AND  MUST  LAND  MANUALLY" 

30  PRINT  "BECAUSE  A SOLAR  FLARE  HAS  ENDED  COMMUNICATION  WITH’* 

40  PRINT  "MISSION  CONTROL.  THE  LM  COMPUTER  IS  INOPERABLE." 

50  PRINT  "YOU  HAVE  30# 000  UNITS  OF  FUEL  AND  ARE  70  MILES  FROM" 

60  PRINT  "THE  SURFACE.  YOU  CAN  FIRE  THE  DESCENT  ENGINE  FOR  0 LBS." 
70  PRINT  "OF  THRUST  OR  FOR  1000  TO  10000  LBS.  OF  THRUST  FOR  10" 

80  PRINT  "SECOND  PERIODS*  YOUR  FUEL  IS  USED  AT  THE  RATE  OF" 

90  PRINT  "1  UNIT  FOR  EVERY  100  POUNDS  OF  THRUST  PER  SECOND." 

100  PRINT  "THE  THRUST  IS  ENTERED  IN  HUNDREDS  OF  POUNDS  OF  THRUST." 
110  PRINT  "GOOD  LUCK" 

180  PRINT 

190  PRINT  "SEC"# "FPS"# "MILES  UP"# "FUEL"# "THRUSTC 100# >" 

200  LET  D=70 
210  LET  T=  1 0 
220  LET  V=300 
230  LET  U» 30000 
240  PRINT  T#  V#  D#  U# 

250  INPUT  F 

260  IF  F#INT<F>  THEN  310 
290  IF  F> 1 00  THEN  310 
300  IF  F*10>U  THEN  310 
305  IF  F*0  THEN  330 

308  IF  F< 1 0 THEN  310 

309  GOTO  330 

310  PRINT  "ILLEGAL  ENTRY... TRY  AGAIN" 

320  GOTO  240 

330  LET  U» U-F*  10 

340  LET  V1  = V 

345  LET  F*F*100 

350  LET  V2*<  ® 1 6-F/32000>*322 

360  LET  Dl*CVl+V2/2>/528 

370  LET  DsD-Dl 

380  LET  V*V+V2 

390  IF  D <s  0 THEN  580 

400  IF  U <*  0 THEN  430 

410  LET  T=T+10 

420  GOTO  240 

430  PRINT  "OUT  OF  FUEL  AT"Dl "MILES  UP" 

440  LET  J=0 

450  LET  J=J+I 

460  LET  V1  = V 

470  LET  V2=.  16*332 

480  LET  D=D-CVt-V2/2>/528 

485  LET  V=V+V2 

490  IF  D>0  THEN  450 

500  PRINT  "IMPACT  IN  ABOUT"J*10J "SECONDS" 

580  IF  V <=  30  THEN  630 

590  PRINT  "IMPACT"V* 1 5/221 "MPH  YOU  BLEW  IT" 

595  IF  V<6 66  THEN  620 

601  PRINT  "THE  SHIP  WAS  SABOTAGED" 

620  STOP 

630  PRINT  "YOU  MADE  IT" 

640  PRINT  "TOUCH  DOWN  AT"V*1 5/22"MPH.  YOU  HAVE"Ui "UNITS  OF  EXTRA" 
650  PRINT  "FUEL.  BEFORE  YOU  REPORT  TO  NASA#  PLEASE  INFORM  LARRY" 
660  PRINT  "SIEGEL#  3052  WARRINGTON  RD.#  SHAKER  HTS*#  OHIO  44120#" 
665  PRINT  "AS  TO  HOW  YOU  SUCCEEDED.  CONGRATULATIONS" 

670  END 
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CRAZY 

EIGHTS 


This  module  shows  you  how  to  write  a urogram  that  simulates  a 
2-player  card  game  based  on  a standard  dec.4'*  of  fifty- two  cards. 

Each  player  receives  seven  cards.  The  rfcot  of  the  pack  is  placed 
face  down  to  form  the  stack.  The  top  i;&rd  of  the  stack  is  turned 
face  up  and  placed  beside  it  to  form  the  starter.  The  first  player 
must  place  on  the  starter  a card  that  matches  it  either  in  suit  or 
in  rank.  Each  in  turn  must  thus  play  one  card  on  the  starter  pile, 
matching  the  last  played. 

If  unable  to  play  in  turn,  a player  must  draw  cards  one  by  one 
from  the  top  of  the  stack  until  he  is  able  and  willing  to  play  or 
until  he  exhausts  the  stack.  After  the  stack  is  exhausted,  a hand 
must  play  in  turn  if  it  can t when  it  cannot,  the  turn  passes. 

All  eights  are  wild.  An  eight  may  be  played  regardless  of  the 
last  previous  card,  and  regardless  of  whether  the  hand  is  able  to 
play  a natural  card  at  that  time.  In  playing  an  eight,  the  owner 
must  name  a suit/  and  the  next  card  played  must  be  of  that  suit  (or 
another  eight) . No  limitation  as  to  rank  may  be  made  in  playing  an 
eight. 

The  player  first  to  get  rid  of  all  his  cards  wins.  If  the 
stack  is  exhausted  and  no  hand  can  play,  the  game  ends  as  a block. 

In  scoring,  the  winner  collects  for  all  cards  remaining  in  the 
other  hand:  50  for  each  eight,  10  for  each  face  card,  1 for  each 
ace,  and  the  index  value  for  each  other  card.  If  the  deal  ends  in 
a block,  the  player  with  the  lowest  count  collects  the  difference 
of  counts. 

Here's  a run  of  a program  which  simulates  the  playing  of  "Crazy 
Eights”.  The  program  is  interactive,  matching  the  computer's  strategy 
against  a human  player. 

CRASY  EIGHTS  PROGRAM 

WHEN  ASKED  EMICH  CARD  YOU  VI SM  TO  PLAY  YOUR  ANSVER 
SHOULD  BE  TUO  NUMBERS#  THE  FIRST  NUMBER  S$  THE 
VALUE  OF  THE  CARD.  AND. .THE  .SECOND  IS  INC  SUIT# 

FOR  VALUES! 

I0»10#  JRCK«II*0UEEN»IE#KING»I3#AND  ACE-14 

FOR  SUITS!  CLUBS- 1 # D! AMQNDS-£*REARTS »3 # AMD  SPADES *4 


PROJECT  SOLO  / Vcpt.  oi  Compute Ji  Se.ie.nce.  / Univ.  oi  Pitt*buA.Qk[1 521 3) 
Module.  # 02  20  / fsiank  dJimbcA.lt/  & Carolyn  Lcn  [PS ) 
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YOUR  HAND  IS 


4 
7 

5 
3 
9 
$ 
Q 


C 

C 

0 

K 

H 

S 

S 


o 

ERIC 


THE  LAST  CARD  PLAYED  WAS 
A H 

DO  YOU  WISH  TO  PLAY  A CARD  U«YEI»0«il>t  t 
WHICH  OF  YOUR  CARDS  DO  YOU  WISH  TO  PLATT  9*3 

YOUR  HARD  IS 

4 C 

7 C 

5 D 

3 H 

9 S 

Q S 

THE  LAST  CARD  PLAYED  HAS 
9 S.  . 

DO  YOU  Visa  TO  PLAY  A CARD  U«TIS#0«RDt  I 
WHICH  OP  YOUR  CARDS  DO  YOU  WISH  TO  PLATT  IR»4 

YOUR  HAND  IS 

4 C 

7 C 

5 D 

3 H 

S S 

THE  LAST  CARD  PLAYED  WAS 

8 C 

THE  SUIT  CALLED  TOR  IS  C 

DO  YOU  WISH  TO  PLAY  A CARD  f I*YS$»0«N0>T  I 
WHICH  OP  YOUR  CARDS  DO  YOU  WISH  TO  PLATT  T#I 

YOUR  HAND  IS 

4 C 

5 D 

3 H 

5 S 

THE  LAST  CARD  PLAYED  WAS 

J Q 

DO  YOU  WISH  TO  PLAY  A CARD  < t«YES#0«*NQ»T  1 . 
WHICH  OP  YOUR  CARDS  DO  YOU  WISH  TO  PLATT  4*1 

YOUR  HAND  IS 
5 D 

3 H 

5 S 

THE  LAST  CARD  PLAYED  WAS 

4 H 

DO  YOU  WISH  TO  PLAY  A CARD  C 1*YES#0*N0>?  I 
WHICH  OP  YOUR  CARDS  DO  YOU  WlSHJTO  PLAY?  3#3 


A 


V 


V3 


\ * 


7 


YOUR  HAND  IS 
S D 

S S 


THE  LAST  CARD  PLAYED  HAS 

DO. YOU  VISH  TO  PLAIT  A CAW  <l«nS«taNO>t  • 

YOUR  WEU  CARD  IS  9 » 

DO  YOU  VISH  TO  PLAY  A CARD  ( |aYES»0"N0>?  0 
YOUR  REV  CARD  IS  10  H 
DO  YOU  HISH.TO'PLAY  A CARD  UAYESvOFMDt  I 
VHICK  OP  YOUR  CARDS  SO  YOU  VISH  TO  PUTT  1S.3 

A • * * 

YOUR  HARD  IS 
S -D 

9 0 

s s 

THE  LAST  CARD  PLAYED  HAS 

10  D ....... 

DO  YOU  VISH. TO  PLAV  A CARD  « l«YSS*0«H0>t  I 
WHICH  OP  YOUR  CAROS  DO  YOU  VISH  TO  PLAY?  9*2 

YOUR  HAND  IS 

S O f 

5 S 

THE  LAST  CARD  PLAYED  HAS 

2 D . 

DO  YOU  VISH  TO  PLAT  A CARD  < |aYSS»0«M»T  I 

MUCH  OP  YOUR  CAROS  DO  YOU  VISH  TO  PLAY?  5.2  V 

YOUR  HAND  IS 
S S 


THE  LAST  CARD  PLATED  HAS 
S . C 

DO  YOU  WISH  TO  PLAY  A CARD  < l-YES.O-NOI?  1 f 

WHICH  OF  YOUR  CARDS  DO  YOU  VISH  TO  PLAY?  5*4 


CARDS  LEFT  IN  NY  HAND 
6 C 

9 C 

X C 

K H 

YOUR  SCORE  IS  3S 
HY  SCORE  IS  0 
YOU  VON  THAT  HAND. 

DO  YOU  WISH  TO  PLAY  AGAIN  < l-YES»0-NQ>?  0 

OUT  OP  I HANDS  YOU  HON  I • YOUR  TOTAL  SCORE  IS  35  I MINE  IS  0 . 
LOOKS  LIRE  YOUR  HIGH  SCORER. 

BYE. 


• p 
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io  now  mm  to 

80  PRINT  "CRAZY  EIGHTS  PROGRAM" 

60  PRINT 

>00  DIN  AC50)»IM58>»0t80)#N<58) 

1 10  DIM  T(S8)V9<PR>»V(S0r 
100  DIM  ZfSOMJf ' 4)»Ci(tO> 

ISO  READ  U8<l>»U8<0>»08t3>#U8<4> 

140  FOR  I»t  TO  13  " 

190  ROAD  CS<!> 

160  NEXT  t.  ' ' 

170  FOR  I-I  TO  80 
ISO  ROAD  t<I> 

190  MXXT  1 
000  DATA  C*D»M«8 

g|0  OATA  "B"#"3"»"4"»"9"»"6"#"7"*"0*»"0"»"I0"* J»8»K#A 
000  DATA  8#3i4»9#<8»7»90#9*l0il0#10#10#l  ' 

CSS  OATA  O»3»4#S»6iT#90i9»IOilO'»IO»IOil 
040  DATA  8»3»4i9»6#7»90'»0*  lOUOilOilOil 

080  DATA  B»3#4iSi6»7»90#9»  10» 10» I0»  10*  I _ 

300  PRINT  "WEN  ASKED  WHICH  CARD  YOU  NISH  TO  PLAY  YOUR  ANSWER" 
SOI  PRINT  "SHOULD  BE  TWO  NUMBERS*  THE  FIRST  MMBER  IS  THE  " 

308  PRINT  "VALUE  OF  THE  CARD  AND' 'THE.  SECOND.  LS  THE  SUIT." 

303  PRINT  "FOR.  VALUES I.  8»a«3«3»4»4»S«8#6»6»7«7.8-8*9-9»" 

304  PRINT  " 1 0 - 1 0 , JACK- 1 1 . OtlESN*l  8,  KI 13 .AMD  ACE-14" 

308  PRI NT. ."FOR ’SUITS!" CLUBS" I » D! AN0ND0"0»MEARTS»3» AMD  SPADES-4" 

380  LET  L.-O  v 

330  FOR  lAt  TO  4 

340  FOR  J»!  TO  13 

380  LET  L»01 

360  LET  S(L>.-.t 

370  LET  V<L)»J 

300  NEXT  J ' 

300  NEXT  1 

400  LET  Nt-0 

410  LET  NS»0 

400  LET  N3-0 

430  LET  Sl-0 

440  LET  S0>0 

480  FOR  !■!  TO  SO 

460  LET  0in«0 

470  LET  HCt>»0 

480  LET  ACti-RND(E> 

490  NEXT  I 

SCO  LET  VI -0 

810  LET  B1"0 

SCO  LET  Pl-1 

830  LET  PO-t 

840  LET  J>0 

980  LET  Ml-99999 

860  FOR  1*1  TO  SB 

970  IF  A( I >.*«M1  THEN  600 

880  LET  Ml “AC  1 1 

890  LET  .1  i“I 

600  NEXT  1 


V 
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510  MET  J»J*1 

•90  LET  D<J>all 

•30  LET  All l >*99999 

•40  IE  J«58  THEN  S50 
•SO  FOR  1*1  TO  7 
•«0  LET  G<D< 58-8*1*2) ) Hi 
•70  LET  K<D($8-9*l*l>>aI 
MO  NEXT  .1  " 

•90  LET  TU>"D(38»  i 

700  LET  Tl*l  . I 

710  LET  P±S<T<1» 

790  LET  Hl>7  

730  LET  H8-7. 

740  LET  Dl-37 

7M  OOSUB  3000 
770  OOSUB.  .5000 
TOO  IP  Vl-I  THEN  BM 
790  IP  91*1  THEN  860 
090  OOSUB. .5000 
830  IP  V1*I  THEN  860 
840  IF  Bl-1. THEN  860 

8 SO  OOTO ' TOO 
800  OOSUB  8009 

870  PRINT  TOUR  SCORE.  IS. TCI 
880  PRINT  “NT  SCORE  IS  "ICS 
890  1FC8»-Ct  THEN  930 
900  PRINT  “YOU  VON  THAT  HAND." 

910  LET  N1-NI9I 
980  OOTO  950' 

930  PRINT  "I  tPM  THAT  HAND." 

940  LET  N8-NS«! 

9 SO  PRINT  .. 

900  LET  N3«N3«i  

970  PRINT  "DO  YOU  WISH  TO  PLAY  AGAIN  <|aYES«0*MO)T 
975  INPUT. .29  . 

980  IF  29a!  THEN  4S0 

990  PRINT  " 

991  PRINT  "OUT  OP  "IN3I*  HANDS  YOU.  VON  “IN  II 
993  PRINT  r.  YOUR  TOTAL  SCORE. IS  "IS1I"  f NINE  IS  "IS8I 

995  IP  SH-S8  THEN  998 

996  PRINT  "LOOKS  LIKE  YOUR  HIGH  SCORER." 

997  GOTO  999 

998  PRINT  "LOOKS  LIKE  I AH  THE  HIGH  SCORER." 

999  PRINT  "BYE." 

1000  STOP  . 

8000  LET  Cl-0 
8010  LET  C8"0 

8080  IF  H8-0  THEN  8070 

8084  PRINT 

8085  PF.I NT  "CARDS  LEFT  IN  MY  HAND" 

8030  FOR  I •!  TO  58 
8040  IF  H(I)aO  THEN  8060 
8045  PRINT  CS(V<I)>.US(S(I)> 

8050  LET  C!-C!*2<!> 

8060  NEXT  I 

8070  IF  H1>0  THEN  8140 
8060  FOR  I»1  TO  58 
8090  IF  G(I>aO  THEN  8110 
8100  LET  CS«C2+2( I > 

8110  NEXT  I 
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liiao  IF  Cl-0  THEN  8140  ' 

8ISe  IF  Ct>-C8  THEN  8130 
8184  LET  C2-C8-C1 
8186  LET  CI-0 
8188  GOTO  8140 
8130  LET  ClffCI'CS 
8138  LET  C8«0 
8140  LET  SI-S1*C” 

8150  LET  S8«S8*Cit 
8160  RETURN 
3000  PRINT 

3009  PRINT  " YOUH  KANO  IS" 

3010  FOR  I-l.TT  98 
3080  IF  GUI-0  .HIM  3040 
3030  PRINT  C3(VUI1«US<SU11 
3040  NEXT  1 
3110  PRINT 

3180  PRINT  " THE  LAST  CARD  PLAYED  WAS  “ 

3130  PRINT  CS<V<T1TII11»U$.<S<T(T1111 
3133  IF  »(T(TI>»oT  THEN  3150 
3136  PRINT  "THE  SUIT  CALLED  FOR  IS  "IUSCP) 

3150  RETURN 

5000  PRINT  "DO  YOU  WISH  TO  PLAY  A CARD 
5010  INPUT.  Z9 
5080  IF  29-1  THEN  5080 
5089  IF  D!«»0  THEN  5030 

5086  PRINT  "ALL  THE  CARDS  HAVE  SEEN  DEALT. 

5087  GOTO  5330  — YOU  AM  BLOCKED 1 

5030  LET  I-DCDII 
5040  LET  DI-D1U 
5050  LET  111*11*1 
5060  LET  00141 

5068  PRINT  "TOUR  NEW  CARD  IS  "1CSCVUI1J" 

5070  GOTO  5000 

5080  PRINT  "MUCH  OF  YOUR  CARDS  00  YOU  NISH  TO  PLAY'1 1 


5330 

5340 

5390 

5360 

6080 

6010 

6080 

6030 

6040 

6050 

6060 

6061 

6068 

6063 

6064 
6070 
6080 
6090 
6100 
6110 
6180 
6130 
6140 
6150 
6160 
6170 
6180 


IF  P8«»0  THEN  5390 
LET  81-1 
LETPt-0 
RETURN' . 

LIT  1-53 
LET  lal.-.t 

IF  HU  140  THEN  6060 
IF  VU>«7  THEN  6060 
IF  8(1 IrP  THEN  6160 
IF  VMIaVCmill  THBI  6160 
IF  I»1  THEN.  6010 
FOR.lal  TO  58  ' 

IF  VUlSKT  THEN  6064 
IF  HUXaO  THEN  6160 
NEXT  I ■ 

IF  Dl-0  THEN  6370 
LET  1-DCDIl 
LETDlaDI*! 

if  vdinT  Then  6iso 

IF  8(1 IrP  THEN  6180 
IF  V(I1rV(T(TIII'1HEN  6180 
LET  ft8-M8+l 
LET  KUI-1 
GOTO  6070' 

LET  HU.l-0 
LET  HB«H8-1 
LET  T1*T1$I 


"IUS1SU11 


5090  INPUT  V9*S9 

5091  LET  V9-V9-1 

5100  IF  V9»7  THEN  5190 

5110  IF  S9-P  THEN  5150 

5180  IF  W9-V1TCT111  THEN  5150 

5130  PRINT.' "THAT  IS  NOT  A LEGAL  PLAY." 

5140  GOTO  5000 

9150  FOR  1-1.: TO  .58 

5160  IF  GUI-0. THEN  5190 

5170  IF  VU!*»V9  THEN  5190 

5180  IF  SUI-S9  THEN  5880 

5190  NEXT  I' 

5800  PRINT  "YOU  DO  NOT  HAVE  THAT  CARD." 

5810  GOTO  5090 

5880  LET  GUI-0 

5830  LET  Hl-HI-l 

5840  LET  T1-T1U 

5845  LET  TUll-t 

5850  IF  V9«»T  THEN  5880 

5860  PRINT  "WHAT  SUIT  DO  YOU  VtSH"! 

5870  INPUT  59 

5850  LET  P-S9 

5890  LET  Pl«l 

5300  IP  H|<>0  THEN  5380 

5310  LET  Vl-1  tia 

5380  RETURN..  00 

o 
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6190  LET  UTII-t 

6195  LET  F4SU1 

6800  IF  VU><*7  THEN  6330 

6810  FOR  J»1  XO  4 

6880  LET  Yiai-O 

6830  LET  Ntat3*(U>Ilal 

*835  LET  K8aJ3*J 

6840  FOR  KaRi  TO  K8 

6845  IF  HU  1-0  THEN  6860 

6850  LET  YCOi-YCUIat 

6860  NEXT  K ' 

6870  NEXT  <1 
6880  LET  pal  . 

6890  FOR  J-8.TO  4 

6300  IF  Y(J1<-Y(P1  THEN  6380 

6310  LET  P-U 

6380  NEXT  J . 

6330  LET  P8.-1 

6340  IF  H8«*0  THEN  6360 

6350  LET  tfl-1 

6360  RETURN 

6370  IF  Pl«»0  THEN  6390 
6380  LET  81-1 
6390  LET.P8-0 
6400  RETURN 
6410  END 
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SIMULATING  MOTION  ON  A 


Rectangular  Billiard  Table 


0 The  program  described  in  this  module  simulates  the 
"dynamics"  of  a particle  acting  under  inelastic  col- 
lision. We  can  think  of  the  particle  as  a billiard 
ball  on  an  ideal  table,  i.e.  a table  on  which  no  loss 
of  energy  takes  place. 

0 Physics  students  can  give  other  interpretations  to 
the  mathematical  model  which  underlies  the  program. 

0 Information  on  how  to  use  an  X-Y  plotter  to  display 
the  output  of  this  program  can  be  obtained  from 
module  #0131. 

PORT 


PROJECT  SOLO,  Comput&ti  Sentence  V e.pantme.nt,  Unlvz/ulty  oi  PltJt&busigh  [15213] 
Module.  #900  7,  Gtviy  U.nd6tA.om  and  Carolyn  Len  [PS] 


In  the  billard  simulation , yre  are  using  an  elementary  law 
of  physics.  tfhen  an  inelastic  particle  hits  an  immovable  wall 
it  bounces  off  in  a special  way. 


PARTICLE'S  PATH 


Figure  1 


WALL 


In  Figure  1 the  straight  lines  with  arrowheads  represent  the  path  of 
a particle  hitting  a wall.  The  line  with  the  slashes  is  a per- 
pendicular to  the  wall  at  the  point  where  the  particle  hit  the 
wall.  Angle  « is  called  the  angle  of  incidence  (i.e.  the  angle 
between  the  perpendicular  and  the  particle's  incoming  path). 

Angle  0 is  called  the  angle  of  reflection  (i.e.  the  angle  between 
the  perpendicular  and  the  particle's  outgoing  path.)  \a  elementary 
physics  law  (the  law  of  reflection)  states  that  the  ngle  of  in- 
cidence (angle  a ) and  the  angle  of  reflection  (angl  0)  are  equal. 
Further  t if  the  particle  is  inelastic  and  the  wall  unyielding 
the  speed  of  the  particle  will  remain  constant. 

Here  is  another  way  or  looking  at  this  col 3 isio:  » 


In  Figure  2 an  additional  path  is  dotted  in.  This  path  is  called 
a virtual  path  (i.e.  an  imaginary  path).  Also  the  perpendicular 
has  been  extended  into  the  wall.  The  virtual  path  is  the  path 
the  particle  would  have  followed  if  the  wall  did  not  exist.  Notice 
that  angle  0'  is  equal  to  angle  « (Can  you  prove  this?)  and  there- 
fore equal  to  angle  0.  The  virtual  path  is  the  particle  * s ^tra- 
jectory in  the  mirror  world  of  uhe  particle's  actual  path  in  the 
real  world. 
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Now  imagine  there  are  two  walls  in  our  real  world. 


When  it  hits  wall  A the  angle  of  incidence  is  « and  the  angle  of 
reflection  is  $.  When  it  hits  wall  B the  angle  of  incidence  is 
6 and  the  angle  of  reflection  is  y.  What  can  be  said  of  «,  $, 

<S,  and  y?  From  the  law  of  reflection  we  know  that  <*  “ <8  and  <6 

<Y. 


WALL  A 


-*/ T— > 


WALL  B 1 

(MIRRORED  IMAGE 
OF  WALL  B) 


Figure  4, 


e'V' 

I 6* S 

' Y''  j WALL  A'  (MIRRORED  IMAGE  OF  WALL  A) 


WALL  B 


In  Figure  4 we  drew  in  the  virtual  path  of  the  particle's  tra- 
jectory in  the  mirror  wor3.d.  We  already  know  that  = <3%  but 
can  you  prove  the  <•?  <<$'?  You  should  be  able  to  using  plane 

geometry.  Also  can  ^ou  show  <y  — <y»?  <y*  lies  in  a different 

mirror  imaged  world  than  either  <*  or  <3'.  Can  you  see  how  this 
mirror  image  was  produced? 


If  you  stretch  your  imagination  you  can  see  that  this  virtual 
;?*th  method  can  be  extended  to  as  many  bounces  off  as  many  walls 
os  you  like.  In  Figure  5 we  used  four  walls  and  extended  the  re- 
flections (mirrored  images)  to  fill  a plane.  This  idea  of  reflected 
images  is  the  method  used  by  the  billard  simulation  program  to 
calculate  the  particle's  movement. 


Figure  5 is  a sketch  of  the  plane  of  reflected  tables  for 
the  sample  run  of  the  billard  simulation  program.  The  little  boxes 
on  the  table's  sides  are  the  table's  pockets.  The  solid  line  ex- 
tending through  the  different  reflected  tables  is  the  particle's 
virtual  path.  The  broken  line  in  the  box  on  the  lower  left  is  the 
reel  path  of  the  particle  on  the  billard  table. 
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There  are  three  major  parts  to  the  Billard  Simulation  pro- 
gram. 

1.  The  program  prompts  you  to  give  the  following  information: 

a.  the  length  and  width  of  the  rectangular  billard  table 

b.  the  position  and  size  of  pockets  (these  are  openings 
on  the  sides  of  the  table  through  which  the  particle 
can  exit) 

c.  the  starting  position  of  the  particle  on  the  table 

d.  the  initial  x and  y components  of  the  velocity  vector 
for  the  particle's  movement 

The  table  and  pockets  are  then  drawn  by  the  plotter  and  the 
plotter  pen  is  positioned  at  the  particle's  starting  location. 

2.  The  program  controls  the  simulation  by: 

a.  finding  the  side  of  the  table  the  particle  will  hit  next 

b.  computing  the  impact  coordinates  of  the  particle 

c.  plotting  in  line  mode  the  calculated  path  of  the 
particle’s  movement 

d.  checking  to  see  if  the  particle  exited  a pocket 

(1)  if  it  did  not  exit  go  to  step  2a. 

(2)  if  it  did  exit  go  to  the  third  part  of  the  program  /V 

i 

3.  The  program  types  a summary  of  what  happened  during  the  J 

simulation. 

a.  the  number  of  the  pocket  the  particle  exited 

b.  the  number  of  times  the  particle  bounced  off  of  a 3; 

side  of  the  table  before  exiting 

c.  the  exit  coordinates  of  the  particle 

d.  the  distance  the  particle  traveled  on  the  table 

e.  the  time  units  elapsed  between  the  time  of  the 
particle’s  initial  velocity  on  the  table  and  the 
time  of  its  exit  into  a pocket. 

F 

3d  and  3e  assume  the  initial  velocity  is  per  unit  time. 

The  person  running  the  program  is  then  given  the  choice 
of  starting  another  particle  on  the  same  table  or  ending 
the  program. 


An  Explanation  of  the  Program  Parts 


Here  is  a description  of  what  statements  100  to  260  do.  These 
lines  set  up  or  initialize  the  particular  simulation  to  be  done. 


100 

105 

110 

115  - 117 
120  - 136 
137 

140  -215 


218 

220 

230  - 250 


258 

260 


All  variables  are  set  to  zero. 

Dimensions  are  set  for  pockets  in  the  table— a maximun 
of  10  pockets  is  allowed. 

I,  N,  and  B are  made  integer  variables.  I,  N,  and  B 
are  going  to  be  used  for  counters  within  the  program. 

The  forms  are  set  for  use  in  the  print  statements. 

The  length  and  width  of  the  billard  table  are  set. 

A scale  factor  for  the  plotting  statements  is  determined. 
These  statements  ask  the  user  to  describe  the  positions 
and  sizes  of  the  pockets;  they  also  check  to  make  sure 
that  no  "impossible”  pockets  are  requested. 

Subroutine  600  is  called.  It  draws  the  billard  table 
on  the  plotter. 

The  bounce  counter  is  set  to  zero. 

These  statements  ask  the  user  to  state  the  initial 
position  and  components  of  the  velocity  vector  for 
the  particle;  they  also  check  that  the  starting 
position  is  on  the  table  and  that  the  particle  is 
not  stationary. 

The  plotter  is  put  in  line  mode. 

The  pen  is  positioned  at  the  partic.^.e's  starting 
location  on  the  table 

(the  x component  is  scaled  to  two-thirds  of  the 
y component) 

(both  x and  y are  scaled  for  coordinate  system 
0 to  9999) 

(both  x and  y are  scaled  for  a non-square  table) 


Variables  introduced  in  lines  100-260. 

P(N,1)  is  the  opening  x coordinate  of  pocket  N. 

Q(N,1)  is  the  opening  y coordinate  of  pocket  N. 

P;’N,2)  is  the  closing  x coordinate  of  pocket  N. 

Q(N,2)  is  the  closing  y coordinate  of  pocket  N. 

A$,B$,  and  C$  are  string  variables  containing  format  definitions. 
R is  the  length  of  the  rectangular  table. 

T is  the  width  of  the  rectangular  table. 

A is  used  to  scale  the  coordinates  for  plotting. 

N is  the  number  of  pockets  in  the  table. 

B is  the  counter  for  the  number  of  times  a particle  bounces  off 
of  a side  before  it  exits  a pocket. 

X is  the  x coordinate  of  the  particle's  starting  position. 

Y is  the  y coordinate  of  the  particle's  starting  position. 

51  is  the  x component  of  the  velocity  vector  of  the  particle. 

52  is  the  y component  of  the  velocity  vector  of  the  particle. 
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An  Explanation  of  the  Calculations  for  the 
Simulation  of  the  Particle’s  Movement 


Lines  265  to  285  control  the  calling  r*“  subroutines  to 
calculate  the  particle’s  movement  and  plot  this  movement. 

Subroutine  300  finds  the  next  side  of  the  table  that  is  hit. 

We  envision  the  table  as  being  reflected  until  it  covers  the  plane 
(See  Figure  5).  In  this  view  the  particle’s  trajectory  is  then  a 
ray  starting  at  an  initial  point  and  extending  in  one  direction 
with  a given  velocity.  The  x and  y coordinates  for  the  particle 
are  given  values  in  this  plane  extension  (See  flowchart  Figure  6) • 
Then  subroutine  400  translates  each  coordinate  pair  produced  into 
cooresponding  coordinate  values  in  the  original  table.  These  values 
(Ml  and  M2)  are  used  in  subroutine  500  to  check  for  pocket  encounters 

or  exits. 


Relevant  variables  in  subroutine  300 

D2  is  the  distance  from  the  particle's  present  position  on  the 
virtual  path  on  the  reflected  tables  to  the  next  vertical  side 
encountered  on  this  path.  ' 

D1  is  the  distance  from  the  particle's  present  position  on  the  ' 

virtual  path  on  the  reflected  tables  to  the  next  horizontal 
side  encountered  on  this  path. 

H1/H2  are  the  x and  y coordinates  of  the  next  horizontal  side  * 

encountered  by  the  particle  on  its  virtual  path  on  the  * 

reflected  tables.  This  assumes  that  intermediate  vertical 
side  encounters  are  ignored. 

V1/V2  correspond  to  Hi  and  H2  for  the  next  vertical  side  encoun-  • 
tered  by  the  particle. 

Subroutine  400  translates  the  x and  y coordinates  of  the  next 
side  encountered  on  the  particle's  virtual  path  on  the  reflected  _ 

tables  to  their  corresponding  x and  y coordinates  on  the  original  f 

table. 


Relevant  variables  in  subroutine  400 

Cl  is  the  number  of  complete  table  widths  between  the  original 
table  and  the  x coordinate  of  the  next  side  encountered  on 
the  particle's  virtual  path  on  the  reflected  tables.  The 
sign  indicates  right  (+)  or  left  (-)  of  the  particle's  start- 
ing position. 

C2  is  similar  to  Cl  for  the  y coordinate.  The  sign  indicates 
up  (+)  or  down  (-) . 
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Ml  is  the  displacement  from  the  vertical  boundary  named  in  Cl 
to  the  x coordinate  of  the  next  side  encountered  on  the 
virtual  path. 

M2  is  similar  to  Ml  for  C2  and  the  y coordinate. 

We  convert  Ml  and  M2  to  be  the  coordinates  normalized  to  the 
original  table.  There  are  four  cases  for  Ml  conversions;  one  for 
each  different  reflection  of  the  original  table  the  particle  may 
encounter • 


Li  Oli  lialij 


y-axis 


I * Ml  is  unchanged.  The  reflected  image  is  the  same  as  the 

original • 

II  * Ml  is  changed  to  the  width  of  the  table  minus  Ml.  The 

reflected  image  is  like  the  one  to  the  right  of  the  original. 

III  = Ml  is  negated.  The  x coordinate  is  moved  to  the  positive 

side  of  the  y axis.  The  reflected  image  is  like  the  one  on  ^ 

top  of  and  to  the  right  of  the  original. 

IV  = Ml  is  changed  to  the  width  of  the  table  plus  Ml.  The  re- 

flected image  is  like  the  one  on  top  of  the  original. 

A 

Similar  conversions  are  done  for  M2.  V 

Subroutine  500  checks  to  see  if  the  normalized  x and  y co- 
ordinates of  the  particle  are  included  in  the  pocket  for  which  it 
was  called.  If  it  is  not  included  the  subroutine  returns.  If  it 
is  included  a summary  of  information  is  printed  about  the  particle* s 
movement. 

I 

Relevant  variables 

D is  the  distance  traveled  by  the  particle  on  the  table. 

Tl  is  the  number  of  time  units  elapsed. 


Here  is  a description  of  the  statements  that  draw  the  table 
and  its  pockets.  (lines  600-845) 

600  Dimensions  are  set  for  the  maximum  number  of  pockets 

allowed  on  one  side  of  the  table. 

605  X9 , Y9,  J,  and  J1  are  made  integer  variables. 

610  The  plotter  is  set  to  line  mode. 
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615 

620 

625  - 635 
640 
645 
650 

655  - 675 
680 

715  - 780 

785 

790 

800  - 845 


Y0  is  set  to  find  pockets  along  the  side  of  the  table 
where  the  y coordinate  is  zero. 

A counter  is  initialized  to  zero. 

All  the  pockets  along  the  given  y coordinate  are  found 
and  put  in  the  B matrix.  J is  the  number  of  pockets  found. 
Subroutine  800  is  called  to  sort  the  pockets  in  the  B 
matrix.  This  is  done  in  order  to  plot  the  side. 

Y9  is  set  to  the  scaled  y coordinate  to  be  used  in  the 
plot  statements . 

The  plotter  pen  is  positioned  to  begin  plotting. 

These  lines  plot  the  horizontal  sides  of  the  table 
with  spaces  where  the  pockets  are  located. 

If  only  one  horizontal  line  is  plotted#  go  back  and 
plot  the  second  horizontal  line. 

These  lines  are  the  same  as  lines  615  — 680  except 
for  the  vertical  sides. 

The  plot  line  mode  is  ended.  t « 

This  returns  to  the  statement  that  called  subroutine  600. 
These  are  the  statements  that  sort  the  pockets  in  the  B 
matrix  into  ascending  order  before  plotting. 
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A listing  of  the  program  /BILLARD/. 


o 

ERIC 


100 
105 
1 10 
1 15 
116 
1 17 
120 
125 
130 

135 

136 
GO  TO 


VAR-ZERO 

DIM  PC 10*2>  *QC 10*2) 

INTEGER  I *N*B 

AS*"* PARTICLE  EXITS  POCKET  1 
BS*"* COORDINATES  C*  ZZZD.DDD 
CS*"* DISTANCE  * ZZZZZZZD. DD  1 
PR. 

PR. 


ZD 
•*  • 


AFTER  * ZZZD* 
ZZZD.DDD* ) * •/*• 
TIME  • ZZZD* DD*  * 


BOUNCES*  V 


M 


••PROGRAM  TO  SIMULATE  PARTICLE  DYNAMICS 
••IN  A POCKETED  RECTANGLE.** 


M 


PR.  PR.  M INPUT  THE  LENGTH  AND  WIDTH  OF  YOUR  RECTANGLE** I 
INPUT  R*T 

IF  R<0  OR  T<0  PR.  "LENGTH  AND  WIDTH  MUST  BE  GREATER  THAN  ZERO 
130 


M 


137 
1 AO 
145 

i£o 
160 
1 65 
170 
175 
1 BO 
181 
183 

185 

186 

187 

188 

189 

190 
193 
195 
200 
202 
205 
208 
210 
215 
218 
220 
230 
235 
238 
GOTO 


LET  A*MAXCR*T> 

PR.  PR.  "ENTER  POCKET  PAIRS." 

PR. "ENTER  A NUMBER  LESS  THAN  ZERO 
N«0 

PR.  "OPEN  X COORDINATE*" 8 
INPUT  PCN  + 1 * 1 )* 

IF  PCN+1*1X0  GOTO  218 


WHEN  YOU  WANT  NO  MORE  POCKETS 


• I 


IF 

IF 

PR. 

PR. 


QCN+1 » 1 )<0 
GOTO  193 


GOTO  190 


PR.  "OPEN  Y COORDINATE*": 

INPUT  GCN+1* 1) 

IF  PCN+1*1)>R  OR  QCN+ 1 * 1 > >T  OR 
PCN  + 1*1) <>0  AND  PCN+1*1X>R 

QCN+1* 1 X>PCN+1* 1 > LET  PCN  + 1 *2) »P< N+ 1 * 1 > GOTO  JH7 
"CLOSE  X COORDINATE  *":  INPUT  PCN+1 *2) 

"CLOSE  Y COORDINATE  *":  INPUT  QCN+1 *2) 


A 


PCN+1*2)>R  OR  PCN+1 *2)<0  OR  QCN+1*2)>T  OR  QCN+ 1 *2) <0 
PCN+'l*  1)*PCN+1*2>  OR  QCN+1*  1 )*QCN+l*2)  GOTO  205 


GOTO  190 
COORDINATE* 


• • • 


IF 
IF 

PR.  "ILLEGAL  POCKET."  GOTO  160 
IF  QCN+1*1>  <>0  AND  QCN+1*1X>T 
QCN+1*2)*QCN+1* 1)  PR.  "CLOSE  X 
INPUT  PCN+ 1 *2) 

IF  PCN+1*2>>Z  OR  PCN+ 1 *2) <0  GOTO  190 

IF  PCN+1*  1X*PCN+1*2)  AND  QCN+1  * 1 X*QCN+1*2>  GOTO  215 
LET  E*PCN+ 1*1)  LET  PCN+ 1 * 1 ) *PCN+1 *2)  LET  PCN+1*2)*E 
LET  E«QCN+ 1 * 1 > LET  QCN+1 * 1 > *QCN+1 *2)  LET  GCN+1*2)*E 
N»N+ 1 GOTO  160 
GO SUB  600 
B*0 
PR.  PR 
INPUT 
IF  X>R 
230 


GOTO  190 


V 


"TYPE 
X*Y 


THE  X* Y CORDI NATES  OF  THE 


PARTICLES  INITIAL 


POSITION.": 


OR  X<0  OR  Y>T  OR  Y<0  PR.  "IMPROPER  STARTING  POSITION 


• I 


AND 

THE 


PARTICLE* 


247 

250 

258 

260 

265 

270. 

275 

280 

285 


240  PR.  "TYPE  THE  X 
VELOCITY  VECTOR  FOR 
245  INPUT  S1#S2 

IF  S1*0  AND  S2*0  PR. 

LET  X1*X  LET  Y1*Y  ' 

PR.  "PLTL" 

PRINT  INTC2./3.+CX/A+9999) )* 
300 
400 

INTC2./3.+C  Ml/A+9999) ) * 
500  FOR  1*1  TO  N 
265 


Y COMPONENTS  OF  THE 


M 


"PARTICLE  IS  STATIONARY."  GOTO  240 


INTC Y/A+9999 ) 


GOSUB 
GO  SUB 
PRINT 
GOSUB 
GOTO 


INTCM2/A+9999  > 


79 


• f 
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A listing  of  the  program  /BXLLARD/  continued. 


300  REM  FIND  THE  NEXT  WALL 

305  IF  S2*0  LET  D1 *100000  GOTO  340 

310  IF  S2*Y<0  GOTO  320 

315  H2*<INT<Y/T>+ABS<$2>/S3>*T  GOTO  330 
320  H2*INT<Y/T>*T 

325  IF  H2*Y  LET  H2*H2+AB$<52)/52*T 
330  Hi«X+<H2-Y)*Sl/S2 

335  Dl*CH2«Y)*<H2-Y> ♦<Hl •X) *CHi-X>  . 

340  IF  3 1*0  LET  .02*100000  GOTO J3t5  ; ' \ 
345  IF  S1*X<0  GOTO  355 
350  V 1 «< INT  <X/R > ♦ABSC  S 1 > /S  J > *R  GOTO  ,365 
355  Vi*INT<X/R)*R  - 

360  IF  Vt»X  LET  V 1 « V 1 +ABSCS 1 > /$ 1 : f 

365  V2»Y+<V1-X)*S2/S1 

370  D2»<Vl-X)*<Vl-X>+<V2-Y>*<V2-Y> . 

375  IF  D2>D1  GOTO  390 
380  LET  X*V1  LET  Y*V2 
385  LET  B*B+l  RETURN 
390  LET  X*H 1 LET  Y»H2 
395  LET  B»B+1  RETURN 

400  REM  NORMALIZE  PARTICLE  COORDINATES 
405  LET  Cl*INT<X/R)  LET  C2*INT<Y/T> 

410  LET  M 1 »X -C 1 *R  LET  M£*Y -C2*T  ; • 

415  F*INTCC 1/2) 

420  IF  X<0  GOTO  435  y:  - 

425  IF  Cl/2-F*0  GOTO  445 

430  Ml *R-M 1 GOTO  445 

435  IF  Cl/2-F*0  LET  M1»-M1  GOTO  445 


/ 


: ...  . •-••• 
■ . -I-  . . ■ 


iv 


440  M1*R+M1 
445  F-INTCC2/2) 

450  IF  Y<0  GOTO  465 

455  IF  C2/2-F*0  RETURN 

460  M2*T-M2  RETURN 

465  IF  C2/2-F*0  LET  M2*-M2  RETURN 

470  M2*T+M2  RETURN 

500  REM  CHECK  PARTICLE  AT  WALL  FOR  POCKET  ENTRY 

505  IF  PCI* 1)=PCI*2)  GOTO  525 

510  IF  Ml <P( 1*1)  RETURN 

515  IF  M1>PC I >2)  RETURN 

520  GOTO  530 

525  IF  Ml <>P( I > 1 ) RETURN 
530  IF  OC I » 1 )*QC 1*2)  GOTO  550 
535  IF  M2<Q( 1*1)  RETURN 
540  IF  M2>Q( I >2)  RETURN 


545  GOTO  555 

550  IF  M2<>Q( 1*1)  RETURN 

555  D*SQRT< CX-X1 )*CX  -X 1 ) + C Y-Y 1 ) *C Y-Y 1 ) ) 

560  T 1 *D/SQRT<  S 1 *S 1 +S2*S2) 

565  PRINT  MPLTTM 
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A listing  o£  the  program  /BILLARD/  continued. 


570  PR. 

575  PRINT  IN  FORM  ASll*B-i 

576  PRINT  IN  FORM  B$SM1#M2 

577  PRINT  IN  FORM  C$lD#Tl 

585  PR.  PR.  "TYPE  YES  FOR  MORE  PARTICLES  ON  THIS  TABLE  Ml 
590  INPUT  S$ 

595  IF  S$*"YESM.  GOTO  220 


596  END 

600  DIM  B<5*2> 

605  INTEGER  X9*Y9*U 
610  PR.  "PLTL" 

615  Y0*0 
620  J»0 

625  FOR  I»1  TO  N 

630  IF  Q< I # l > »Y0  LET  J*J*1  LET  B<  J*  l >»P<  I * 1 > LET  B<  J#2.*«P<Ia2> 

635  NEXT  I 

640  GOSUB  800 

645  Y9»Y0/A*9999 

650  PR.  0*Y9  S"» " 

655  FOR  1*1  TO  J 

660  PR.  INT<2./3.*<B< I* l >/A*9999> > *Y9 
665  PR.  INT<2./3.*<B(l*2)/A*9999>>*Y9t"t*» 

670  NEXT  I 

675  PH*  INT<2./3.*<R/A*9999>>#Y9 
680  IF  Y0*0  LET  Y0«*T  GOTO  620 


715  X0*0 
720  J=0 

725  FOR  1*1  TO  N 

730  IF  PC  I # 1 > **X0  LET  LET  B<  1 > *»0<  I • l > 

735  NEXT  I 

740  GOSUB  800 

745  X9«2./3.*<X0/A*9999> 


LET  B< J*  2) *Q< I #2) 


750  PR.  X9*Q *•'* " 

755  FOR  1*1  TO  J 

760  PR.  X9* INTCBC I * l >/A*9999> 

765  PR*  X9# INTCBC I *2>/A*9999 ) lMt" 

770  NEXT  I 

775  PR.  X9* INTCT/A+9999) 

780  IF  X0*0  LET  X0**R  GOTO  72Q 
785  PR*  MPLTTM 
790  RETURN 
800  J1»0 

810  FOR  I**l  TO  J-l 

815  IF  B<  I « 1 > <**B<  I + 1 » 1 > GOTO  835 

820  LET  E»BCI*1>  LET  B<  I # 1 > »B<  I ♦ l # 1 > LET  BCI*l*l>»E 
825  LET  E*BCI*2>  LET  B<  I *2)*B<  I+l#2>  LET  BCI+1*2>=E 


830  Jl**l 
835  NEXT  I 

840  IF  Jl«l  GOTO  800 


845  RETURN 


i 

i 
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A sample  run  of  the  program  /BILLARD/  • 


»RUN 

PROOFS  TO  SIMULATE  PARTICLE  DYNAMICS 
IN  A POCKET &D  RECTANGLE* 

4 • 

INPUT  THE  LENGTH  AND  WIDTH  OP  YOUR  R£CTANGLE?9#9 

ENTER  POCKET  PAIRS.  _ _ 

ENTER  A NUMBER  LESS  THAN  ZERO  WHEN  YOU  WANT  NO  MORE  POCKETS* 

OPEN  X COORDINATE®?  6 

OPEN  Y COORDINATE-? 0 

CLOSE  X COORDINATE^? 8 

OPEN  X COORDINATE®? 9 

OPEN  Y COORD- NATE®? 7 

CLOSE  Y COORDINATE  ®?8 

OPEN  X COORDINATE®?- 1 

PLTL 

TYPE  THE  X#Y  CO  EDI  NATES  OF  THE  PARTICLES  INITIAL  POSITION*  ?2#2 
TYPE  THE  X AND  Y COMPONENTS  OF  THE 
VELOCITY  VECTOR  FOR  THE  PARTICLE*?2#3 
PLTL 

PARTICLE  EXITS  POCKET  l AFTER  5 BOUNCES# 

COORDINATES  < 6*667#  0*000) # 

DISTANCE  40*86#  TIME  11*33* 

TYPE  YES  FOR  MORE  PARTICLES  D «HIS  TABLE  ?NQ 


7?h©  plotter  drawing  of  the  billard  table  and  the  particle 
movement  in  the  above  run  is  shown  cn  the  title  page  of  this 
module . 


Challenges 

# Write  a program  that  simulates  inelastic  collision  on  an 
elliptical  billard  table. 


• If  you  have  an  x-y  plotter,  use  your  program  to  produce 
graphical  output  of  the  kind  shown  on  the  cover.  See  module 
#0131  for  some  help. 
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SIMULATING  MOTION  ON  AN 


♦ 


ELLIPTICAL 

Gilliairi  Table 

• The  program  Elliptical  Billiards  simulates  the  motion  of 
a ball  on  an  "ideal"  billiard  table  built  in  the  shape  of 
an  ellipse.  The  table  can  have  any  number  of  holes * and 
each  hole  can  have  a different  radius.  The  program  as- 
sumes that  a single  ball  has  been  placed  at  any  position 
within  the  ellipse,  and  then  given  an  initial  velocity. 

The  magnitude  and  direction  of  this  velocity  are  specified 
by  the  person  running  the  program. 

• As  in  most  simulations,  the  physical  situation  has  been 
"idealized"  in  a number  of  ways.  First,  we  assume  that 
the  table  is  frictionless,  that  is,  that  the  ball's  energy 
(and  therefore  its  speed)  does  not  change  with  time.  The 
ball  is  assumed  to  be  an  infinitely  small  inelastic  sphere. 
The  sides  of  the  elliptical  table  are  also  assumed  to  be 
inelastic . 


PROJECT  SOLO  / Qe.pt.  oh  Compute .K  Science  / Uyilv.  oh  PlttAbuAghl 1 52 1 3) 
Module,  # 0113  / Gaiy  Llndbtfiom  S CaKolyn  Le,n  (PS) 


The  elliptical  billiard  simulation  is  based  on  the 
law  that  the  angle  of  incidence  sguals  the  angle  of  reflection* 
For  the  simulation  the  user  specifier  the  size  of  an  elliptical 
table , the  number  of  holes  in  the  table  (at  least  one) # and  the 
position  and  size  of  each  hole.  After  the  table  is  specified 
the  user  positions  a particle  on  the  table  and  gives  the  compo- 
nents of  the  particle's  initial  velocity  vector.  The  particle's 
movement  on  the  table  is  then  simulated  until  the  particle  tells 
through  one  of  the  holes  in  the  table.  The  particle  is  idealized 
such  that  it  is  thought  of  as  a point  with  no  dimensions.  This 
is  done  so  that  when  the  particle  hits  the  side  of  the  ellipse 
it  hits  at  only  one  point  on  the  ellipse.  Also  the  particle  is 
inelastic  and  the  ellipse's  sided  are  unyielding  sp  that  the 
speed  of  the  particle  remains  constant. 


The  data  needed  for  the  simulation  is  requested  and  verified 
in  lines  110  to  205. 


A is  the  x-intercept  of  the  ellipse;  verified  that  A>0. 

B is  the  y-intercept  of  the  ellipse;  verified  that  B>0. 

!x(I),  Y(I)l  are  the  x and  y coordinates  for  the  center  of  the 
1 Ith  hole;  verified  that  jfxjpY  + 7xfU.ja  < i. 

r (I)  is  the  radius  of  the  Ith  hole;  verified  that  R>u. 

are  the  x and  y coordinates  of  the  particle's  starting 
position;  verified  that  /u\  + /Vj  < ^ 

1 V1.V2 t are  the  x and  y components  of  the  initial  velocity 
vector;  verified  that  |Vl|  +• | V2 | >0 . 


The  geometric  interpretation  of  the  above  is: 
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After  the  input  of  the  data  and  the  initialization  of  neces- 
sary variables  the  following  steps  are  performed  to  calculate  and 
plot  the  particle's  movement. 

215-220  These  lines  calculate  the  equation  of  the  particle's  cur- 
rent trajectory  line. 

The  trajectory  is  calculated  by  using  plane  geometry.  It  is 
the  line  determined  by  two  points.  In  this  case#  one  point  is 
the  particle's  present  position  (U#  V)  and  the  other  is  the  part- 
icle's position  after  the  components  of  the  velocity  vector  have 
been  added  (U+Vl#  V+V2).  The  formula  for  two  points  determining 
a line  is: 

<y2  - yi>*  - <*2  " xi)y  + *2*1  " xiy2  “ 0 

In  our  problem  x^  ■ U+Vl  “ v+v^ 

x2  * U y2  a V 

X*(V  - (V+V2 ) ) - Y (U-  (U+Vl) ) + (U*  (V+V2)  - (U+V1)*V)  - 0 

-V2*X  + V1*Y  + (U»V2  - V*V1)  * 0 is  the  current  trajectory  line. 
A1  B1  Cl 

D1  is  set  to  /a!2+B12  to  be  used  later  in  the  program. 


223  The  particle's  position  is  plotted. 

225  Subroutine  300  is  called  to  find  the  point  where  the  particle 
will  next  hit  the  side  of  the  ellipse. 

230  Subroutine  400  is  called  to  see  if  the  particle  passed  over 
a hole  and  fell  off  of  the  table. 

235  If  the  particle  passed  out  of  a hole  and  the  user  wants  an- 
other particle  on  the  same  table  this  statement  will  reini- 
tializes the  bounce  counter  and  go  back  to  start  another 
simulation. 

240  If  the  holes  are  missed  subroutine  500  is  called  to  calculate 
the  components  of  the  new  velocity  vector. 

245  The  bounce  counter  is  increased  by  one. 

255  The  x and  y coordinate  variables  to  be  used  in  calculating 
the  particle's  movement  are  set  to  the  particle's  present 
position. 

260  The  cycle  of  calculating  the  particle's  movement  is  restarted. 


Subroutine  300  finds  the  next  point  on  the  table  where  the 
particle  will  hit.  We  seek  the  mutual  solution  to  the  equation 
for  the  ellipse  and  the  equation  of  the  current  trajectory  line. 
Variables  P and  Q will  hold  the  x and  y coordinates  of  the  impact 
point. 

These  are  calculated  as  follows: 
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“ (*)'  ♦ (i)' 

XI i Al*X  + Bl*Y 


1 is  the  equation  for  the  ellipse* 

Cl  ■ 0 is  the  equation  for  the  current 
trajectory  line* 


t 


(A1*X  + Cl)2  * B12*B2*(1-(x/A)2) 

A12*X2  + 2*A1*C1*X  + Cl2  « B12*B2*(1-(x/A)2) 
Al2  + B12*B2 


+ 


(2*A1*C1)*X  + (C12-B12*B2) 

X ^ 


A2 


B2 


G2 


Using  the  quadratic  formula: 

P « -B2  i/B22-4»A2»G2 
2*A2 


! 


! 


r 


A2  = 0 is  not  possible,  since  this  would  mean  that  XI  is 
tangent  to  I,  an  impossible  trajectory.  The  square  root  term 
must  be  real;  otherwise  X and  II  would  not  meet. 

We  try  the  plus  case  of  the  plus-minus  choice  first.  A test 
is  made  in  line  330  to  see  if  P is  in  the  same  direction  from  U 
as  VI.  If  P is  not  in  the  same  direction  we  have  the  wrong  case 
and  the  minus  choice  is  needed. 


0 
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This  is  computed  by: 

V1*(P-U)>0  implies  that  + 
is  the  correct  case. 


VI 


Figure  3 


NOTE:  A vertical  vector#  VI  ® 0#  requires  a special  case: 

Q « B A*  (U/Al 1 if  V2>0 
-B  /l-  (U/A)  2 otherwise 

For  Vl^O,  Q is  found  by  solving  II. 

As  stated  before,  P and  Q are  the  x and  y coordinates  of  the  point 
where  the  particle  hit  the  side  of  the  ellipse. 

Subroutine  400  checks  to  see  if  the  line  of  trajectory  passes 
over  the  Ith  hole.  This  is  done  by  using  th*  formula  for  the  dis- 
tance between  a line  and  a point.  If  the  distance  between  the 
trajectory  line  and  the  center  of  the  hole  is  less  than  the  radius 
of  that  hole  the  particle  will  fall  off  the  table  through  that  hole. 

If  D<R(I) # ball  passes 
over  hole  I. 


D is  taken  to  be  the  dis- 
t rave led  on  the  last  bounce. 

D = /w2  - D2 


When  the  particle  falls  through  a hole  the  following  information 
is  given: 

I is  the  number  of  the  hole  it  exited. 

T is  the  time  for  the  simulation  of  this  particle. 


That  is:  D = |A1«X(I)  + B1»Y(I)  = Cl  I 

Al2  + Bl2 

A1*X(I)+B1*Y (I)+C1  - 0 


/' 


5 
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B5  is  the. number  of  times  the  particle  bounced  off  of  the 
side  of  the  ellipse. 

02  is  the  distance  the  particle  traveled  on  the  table. 

Time  and  distance  calculations  assume  the  intial 
velocity  is  per  unit  time. 

Subroutine  500  computes  the  x and  y components  of  the  new 
velocity  vector  for  the  particle’s  bounce.  We  do  this  by  first 
finding  the  slope  of  the  tangent  to  the  ellipse  at  the  point  where 
the  particle  hit  the  side.  Then  we  set  up  a new  coordinate  system 
by  translating  the  orgin  to  the  particle’s  impact  point  and  rota- 
ting the  axises  until  the  y-axis  coincides  with  the  tangent.  The 
bounce  effect  in  this  new  coordinate  system  is  found  by  negating 
the  y component  of  the  velocity  vector  and  leaving  the  x component 
alone.  Once  the  new  components  of  the  velocity  vector  are  found 
in  the  translated  and  rotated  coordinate  system  they  are  trans- 
formed (put  back)  into  the  original  coordinate  system.  There  is 
a special  case  to  this  method  when  the  y-component  is  zero.  In 
this  case  the  slope  is  infinity.  The  new  x-component  is  found 
by  negating  the  old  x-component  and  the  y-component  remains  zero. 

For  the  special  case  there  is  no  need  to  translate  and  rotate  the 

axises.  If  the  slope  is  not  infinity  we  work  with  the  new  coor- 

dinate system  as  follows: 

Let  V 1 , V2X  be  impact  velocity  components  in  the  new  system. 

Let  W1 l,  W2 1 be  rebound  velocity  components  in  the  new  system. 

Let  Wl,  W2  be  rebound  velocity  components  in  the  original  system. 


See  Figure  5. 


New  Y-Axis 


New  X-Axis 


F 


Orignal  X-Axis 
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By  using  polar  coordinates  we  can  discover  the  relationship 
between  the  Cartisian  coordinates  of  any  point  P(x,y)  and  its 
image  Px(xx,yx)  under  the  rotated  and  translated  system* 


The  equations  for  translating  between  the  original 
system  and  the  new  one  are:  (The  coordinates of  the  new  origin  with 
respect  to  the  old  axis  are  x * h and  y - k>  the  angle  of  rotation 
is  6 • ) 1 


xx  ■ (x-h)*cos0  + (y-x)*sin0 
yx  - (y-k) *cos0  - (x-h)*sin0 


Since  we  are  concerned  with  vector  components  and  not  exact 
points  on  the  new  coordinate  system  we  can  eliminate  the  origin 
translation  from  our  calculations  to  find  the  vector  components. 
The  equations  become: 

•\  xx  « x*cos0  + y*sin0 
yl  s y*cos9  "*  x*sin0 

VI1  ■ Vl*cos0  + V2*sin0 
V2X  » V2*cos0  - Vl*sin0 

Wlx  * VI1  - Vl*cos0  + V2*sine 
W2X  ■ -V2  » -V2*cos0  + Vl*sin0 

Returning  to  the  original  system  leaving  off  the  translation 
of  origin  values  again,  we  have 


x - xl*cos0  - yx*sin0 
y S3  yl*cos0  + XX*Sin0 


• • 


W1  = Wl xcos0  - W2xsin0 

= (Vl*cos0  + V2*sin0) *cos0  - (-V2*cos0 
= (Cos20  - sin20) *V2  + (2*sin0cos0)Vl 

W2  = W2x*cos0  + Wlx*sin0 

= (-V2*cos0  + Vl*sin0) *cos0  + (Vl*cos0 
s (sin20  — cos20) *V2  + (2*sin0cos0 )V1 


+ Vl*sin0)*sin9 


+ V2*sine) *sin0 


-1? 


-4 

i 

a 


.V; 
» & 
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We  can  eliminate  the  0 from  the  preceding  equations  for  Wl 
and  W2  bv  using  the  slope  of  the  tangent.  The  slope  of  the  tan- 
gent  at  the  point  ( ,y>  was  found  by  taking  the derivative  of  the 


-XB2/A2X* 

Using  M as  the  slope  we  have: 


sin8  = 


M 


COS0  * 


vT+tT 


/r+ir 


H 
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Thus 


W1 


,/J^.  - _“L\vi  - -4-*  r==rVv2 

yl+M2  1+M2/  \ /1+M4  /1+M  / 


■(^) 


kVl  - 2* 


/ iL\*V2 

\1+M2/ 


M2 


./j2 i — Vv2  - (2*  JLx 

\l+M2  1+M2/  \ A+M 
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Subroutine  700  is  used  to  plot  the  ellipse.  Plotting  coordi- 
nates are  found  by  solving  the  ellipse  equation  for  a y value  give 

an  x value. 

*1  « *1  » l 
A2  B2 

B2X2  + A2Y2  » A2B2 

A2B2  - B2X2  . 

I * " 


..  SQRT(A2B2  - b2x2) 


Y « 


Here  is  a line  description  of  Subroutine  700. 

725  A variable  is  set  to  plot  for  the  positive  y coordinate 
of  the  ellipse. 

730  The  plotter  is  put  into  line  mode.  , . . , 

740  A loop  is  set  up  for  the  number  of  points  to  be  plotted 

for  half  the  ellipse. 

750  The  x value  is  determined. 

760  The  y value  is  calculated. 

770  This  statement  plots  the  ellipse.  , . 

780  The  loop  is  continued  until  the  termination  criteria  is 

reached . 

785  The  plot  mode  is  ended.  _ 

790  If  the  negative  values  for  y have  not  been  plotted  go 

back  and  plot  them . . . . 

795  This  statement  returns  control  to  the  place  from  which 

the  subroutine  was  called. 


/ 


■V 


erIc 


90 


33 


* 


♦ 


Subroutine  800  is  used  to  plot  the  holes  on  the  table.  Plot- 
ting coordinates  are  found  by  calculating  the  Cartesian  x and  y 
coordinates  using  the  conversions  from  polar  coordinates.  In  the 
calculations  ft  (I)  is  the  radius#  the  angle  0 is  going  from  0 to 
2ir  to  draw  the  complete  circle#  and  the  X(I)#  Y(I)  are  added  for 
the  circled  center  displacement  from  the  origin. 


The  x coordinate  ■ K • R(lj  *COS6  + X(I). 

The  y coordinate  m l>  R(l)*cos6  + y (i)  . 

Here . is  a;  line..  description  bf  Su^^inc  |OQ.,  : . . . ..  _ 

«' - - - ■ • ■ ■ ■ ■■  ■ «,  tmlW:  ■ -f»«  ;v  .-v 

810  The  plotter  is  put  into  line  mode. 

820  The  loop  is  set  up  for  the  number  .of  points  ^ be  plotted 
for  the  circle.  , 

830  'The  x coordinate- is  ■oaidnlatedv^^vff:;^^-^;^^-/v-'-^ 

840  The  y coordinate  is  calculated. 

850  If  a point  is  out  side  the  ellipse  do  not  plot  the  value. 

This  allows  partial  holes  on  the  sides  of  the  ellipse • 

860  This  statement  plots  the  circle. 

870  The  loop  is  continued  until  thei  termination  criteria  is 
reached.  ’’  C- 

880  The  plot  mode  is  ended. 

890  This  statement  returns  control  to  the  place  from  which 
the  subroutine  was  called. 


The  following  is  a sample  run  of  the  program  /ELLIP/. 


RUN 

INPUT  THE  X-AXIS  INTERCEPT  ?4 
INPUT  THE  Y-AXIS  INTERCEPT  ?3 
PLTL 
PLTL 

INPUT  HOLES:  CX#Y> CENTER#  R RADIUS#  ABS(X)>X  INTERCEPT  ENDS  LIST# 
INPUT  X ? -2 #645751, 

INPUT  Y ?-l 
INPUT  R ?#5 
INPUT  X 7-100 
PLTL 

INPUT  PARTICLE  'STARTING  POSITION  X#Y#  ?l#64575l#-l 
INPUT  INITIAL  VELEQCITY  VECTOR:  VX#VY#  ?1#I#5 
PLTL- 

PARTICLE  LEAVES  HOLE  1 AT  TIME  5#38 
AFTER  i BOUNCEC  S) # PATH  LENGTH  9.69 

IF  YpU  WISH  ANOTHER  PARTICLE  IN  THIS  ELLIPSE  TYPE  YES#  ?N0 


A 


V 


r 


The  characters  PLTL  above  indicate  that  the  plotter  is  activated 
at  this  point  in  the  run.  The  ellipse  is  drawn  first,  then  the 
holes,  and  finally  the  path  of  the  particle.  The  picture  on  the 
cover  of  this  module  (pg.  25)  show  an  actual  drawing  made  by 
an  X-Y  plotter.  Further  information  on  use  of  a plotter  is  found 
in  module  0131. 
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The  following  is  a listing  of  the  program  /ELLIP/ • 


MAY  22  18 *55  /ELLIP/ 


100 
102 
1 0'3 

1 04 

105 
110 
115 
120 
125 
130 

135 

136 

137 

138 
1 AO 
143 
1ST 
145 
150 
155 
160 
170 
GOTO 
175  PH*. 


• ZZZD.DD/" 
•ZZZD.DD/" 


HEM  ELLIPTICAL  BILLARD  SIMULATOR 
LET  F5*9999 

A$=m,PARTICLE  LEAVES  HOLE  • ZZD,  ’ AT  TIME 
B$«M ’AFTER  'ZZD  • BOUNCECSJJ  PATH  LENGTH 
DIM  XC  10>#VflO)»BClO>*K<IO>»LOO> 

PR.  "INPUT  THE  X-AXIS  INTERCEPT  "« 

I NPUT  A 

IF  A<*0  PR.  "AXES  MUST  BE  POSITIVE."  GOTO  110 
PR.  "INPUT  THE  Y-AXIS  INTERCEPT  "* 

I F^B<*0  PR.  "AXES  MUST  BE  POSITIVE."  GOTO  i£5 
F1*MAXCA#B>  LET  F2»2*F1  LET  Z«2./3* 

LET  A9 » A* A LET  B9*B*B 
GOSUB  700 

PrI  "INPUT  HOLES*  <X#Y>CENTER#  R RADIUS#  ABS(X»X  INTERCEPT  ENDS  L 
"INPUT  X "* INPUT  XCH+l) 


PR« 


180 

183 

PR. 

185 

190 

192 

195 


IF  ABSCXCH+ 1 ) >>A  GOTO  190 
PR.  "INPUT  Y "*  INPUT  YCH+l) 

F? C *C/ A9 ♦ D* D/ B9 > + "HOLE  CENTER  MUST  BE  INSIDE  ELLIPSE." 

145 

"*  INPUT  RCH+l) 

PR.  "HOLE  RADII  MUSTBE  POSITIVE.  " GOTO  175 
PR.  "HOLE  RADII  MUST  BE  SMALLER  THAN"* 
INTERCEPT."  GOTO  175  ' 


••INPUT  R 
IF  RCH+1><*0 
IF  RCH+l )>F1 
••  MAJOR  AXIS 
H*H+ 1 GOTH  145 

PR!U"INPUTFpARnCLF°s?ARTING  POSITION  X#Y.  "*  INPUT  U#V 
IF  U*U/A9+V*V/B9> 1 PR.  "STARTING  POSITION  OUTSIDE  ELL I PS E- 

200°PR?2"INPUT  INITIAL  VELEOCITY  VECTOR*  VX>VY.  "S  INPUT  VI » V2 
IF  ABSC VI >+ABSC V2)<=0  PR.  "NON-ZERO  VECTOR#  PLEASE.  GOTO 
LET  B5*0  LET  D2»0  LET  S=0 

"PLTL"  "" 

Al«-V2  LET  Bl*Vl 

C1«U*V2-V*V1  LET  D1»SQRTCA1*AI+B1*B1) 

INT(Z*C CU+Fl >/F2*F5> > # INT  C < V+Fl >/F2*F5> 

300 

400  FOR  1*1  TO  H 


tt 


205 

210 

211 

215 

220 

223 

225 

230 

235 

240 

245 

250 

255 

260 

300 


200 


PR. 
LET 
LET 
PR. 
GOSUB 
GOSUB 


192 


IF  S*1  GOTO 
GOSUB  500 
B5*B5+ 1 

PR.  INTCZ  + C CP+F1 >/F2*F5> ) # 
LET  U-P  LET  V*Q 
GOTO  215 

REM  FIND  NEXT  WALL  ENCOUNTER 


INT  < *Q+F1 >/F2*F5> 


O 
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A listing-  of  the  program  /ELLIP/  continued. 


305  A2«AI*A1+B1*BI*B9/A9 

310  B2=2*A1*C1  LET  G2«C1*C1-BI*B1*B9 

315  W=SQRT<B2*B2-4*A2*G2> 

320  P»<W-B2>/<2*A2> 

325  JF  Bl«0  GOTO  340 

330  IF  V1*<P-U><»00001  LET  P«C -W-B2>/<2*A2> 

335  Q=<-C1-AI*P>/B1  RETURN 
340  REM  VERTICAL  VELOCITY  VECTOR 
345  P=U  LET  Q-B*SQRTU-U*U/A9> 

350  IF  V2<0  LET  Q»-Q 
355  RETURN 

40^»  REM  CHECK  FOR  PASSAGE  OVER  HOLE  I 

405  D=ABS<A1*X<I>+B1*Y<I)+C1>/DI 

410  IF  D>R< I ) RETURN 

415  C=X<I>-U  LET  E=Y C I ) • V 

420  IF  V1*C+V2*E<.0000 I RETURN 

425  W»SQRT<C*C+E*E>  LET  D2»D2+SQRT< W*W-D*D) 

430  T=D2/SQRTCV1*V1+V2*V2> 

432  PR#  INT<Z*<<XCI>+F1>/F2*F5>>#  INT  < CYC  I )+Fl >/F2*F5) 

433  PR#  "PLTT" 

435  PRINT  IN  FORM  AS*I#T 
437  PRINT  IN  FORM  B$tB5#D2 

440  PR#  "IF  YOU  WISH  ANOTHER  PARTICLE  IN  THIS  ELLIPSE  TYPE  YES 
445  INPUT  Y$ 

450  IF  YS<>**YESM  STOP 
455  S=1  LET  I »H  RETURN 

500  REM  SINCE  HOLES  WERE  MISSED#  MOVE  PARTICLE  AND  BOUNCE 
505  D2=D2+SQRT< <P-U)*<P-U)+CQ-V)*<G-V) ) 

510  IF  ABSC 0) =0  LET  V1=-V1  RETURN 
515  M»-<P*B9/<A9*G> > 

520  Wl=< Vl*< l-M*M)+2*V2*M)/< 1+M*M) 

525  V2=< V2*<M*M-1 >+2*Vl*M)/< 1+M*M>' 

530  V1=V1  RETURN 
700  REM  PLOT  ELLIPSE 
725  11=1. 

730  PR.  "PLTL" 

740  FOR  1=0  TO  2*A  STEP  A/ 10 
750  K=I -A 

760  L=C I 1 )*<SQRT<A9*B9-K*K*B9)/A) 

770  PR.  INTCZ*CCK+F1>/F2*F5>)#  INT< (L+Fl >/F2*F5) 

780  NEXT  I 
785  PR.  '*PLTT" 

790  IF  Il=l.  LET  I1--1.  GOTO  730 

795  RETURN 

800  REM  PLOT  HOLES 

810  PR.  "PLTL" 

820  FOR  11=0  TO  6.28  STEP  .2 
830  K=R< I >*CQS< I 1 )+X( I ) 

840  L=R< I >*SIN< 1 1 )+Y< I ) 

850  IF  <K*K)/A9+CL*L)/B9> l PR.  -l#-l  GOTO  870 
860  PR.  INTCZ*<< K+Fl )/F2*F5> ) » INT< < L+Fl )/F2*T 5) 

8 70  NEXT  I 1 
880  PR.  "PLTT" 

890  RETURN 
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